مشكلة الفاصلة العليا (apostrophe) في الفلترة بال Sql

[Delphi2020]

السلام عليكم ورحمة الله وبركاته.
للبحث في قاعدة البيانات ، استعمل تعليمات ال Sql ،
كمثال :

PHP كود :

            Query1.DisableControls ;
            Query1.close;
            Query1.SQL.Clear;
            Query1.SQL.Add(' Select CODEART ,DESIGNATION');
            Query1.SQL.Add(' FROM MyTable  ');
            Query1.SQL.Add(' Where UPPER(DESIGNATION) LIKE ' + ''''+ UpperCase(edit1.Text) + '%''');
            Query1.SQL.Add(' Order By CodeART');
            Query1.Active := true;
            Query1.EnableControls ; 


هذه التعليمات أكتبها في الحدث OnChange لمربع البحث ( edit1 )
البحث يتم دون مشاكل ، لكن عندما ادخل الفاصلة العليا (apostrophe)  في مربع البحث ( edit1 ) ،

اتحصل على رسالة الخطأ التالية :

PHP كود :

'SQL Parse Error:

EOF in string detected'.  


هل هناك من مر بهذه المشكلة من قبل؟

[S.FATEH]

السلام عليكم
https://delphi4arab.net/forum/showthread.php?tid=10159

[justnick]

استخدم دالة
Quotedstr

PHP كود :

QuotedStr(edit1.Text+'%')