Wie wär's mit:
Delphi-Quellcode:
Result := ExecuteQuery('INSERT INTO '+ C_MAILTABLENAME +' (Subject, MsgText, Attachement) VALUES (' +
QuotedStr(EMail.Subject) + ',' +
QuotedStr(EMail.MsgText) + ',' +
QuotedStr(EMail.Attachement) +
')');
QuotedStr gibt dir vorne und hinten ein #39 und ersetzt alle #39 durch #39#39 (#39 ist ein ' )