[Karsh]

Код:

procedure A(var X);
begin
  String(X) := String(X) + 'A';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S := '123';
  A(S);
  ShowMessage(S);
end;