poner entre comillas un string

procedure TForm1.Button1Click(Sender: TObject);
var
dato: string;
begin

dato:='hola';

// sin comillas
showmessage(dato);

// con comillas
showmessage(QuotedStr(dato));


end;