[Ildar-tsr]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string
begin
  s:= 'Привет!';
  showmessage(s);
  s:= s + ' Как дела?';
  ShowMessage(s);
end;