Proba utilizar la funcion QuotedStr
Código Delphi
[-]
declaracion
function QuotedStr(const S: string): string;
description
Returns the quoted version of a string. A single quote character (') is inserted at the beginning and end of string S, and each single quote character in the string is repeated.
example
var s : string;
s:='Delphi''s Pascal';
//ShowMessage returns Delphi's Pascal
s := QuotedStr(s);