diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp
index 56686500be..0403c44ac3 100644
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@@ -1606,12 +1606,12 @@ end;
 
 procedure TCustomSQLQuery.SetDeleteSQL(const AValue: TStringlist);
 begin
-  FDeleteQry.Assign(AValue);
+  FDeleteSQL.Assign(AValue);
 end;
 
 procedure TCustomSQLQuery.SetInsertSQL(const AValue: TStringlist);
 begin
-  FInsertQry.Assign(AValue);
+  FInsertSQL.Assign(AValue);
 end;
 
 Procedure TCustomSQLQuery.SetDataSource(AVAlue : TDatasource);