Function QuotedStr

Uses Unit SysUtils

A função QuotedStr retorna a string do parâmetro com apóstrofo (') no início e fianal. Se a string passada for em branco, a função retorna dois apóstrofos ('').

Sintaxe da sua utilização:

QuotedStr('Texto');

Ex:

procedure TForm1.Button14Click(Sender: TObject);

begin
       ShowMessage(QuotedStr('Márcio Edésio Simão'));
end;