From 054d2b71a21ee0a80b7aba9113d74bf99a8b1568 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 2 Nov 2010 09:46:07 +0000
Subject: [PATCH] * Fixed SetInsertSQL/SetDeleteSQL

git-svn-id: trunk@16295 -
---
 packages/fcl-db/src/sqldb/sqldb.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);