[tumblore]

Помогите пожалуйста, не пойму как через процедуру изменять переменную

Код:

procedure setText(str: String; newText: String);
begin
 str:= text+newText;
end;

procedure TForm1.Button1Click(Sender: TObject);
var text: String;
begin
 text := 'Sample!';
 setText(text, ' 123123');
end;

после выполнения процедуры текст остаётся такой же

[NumLock]

Код:

procedure setText(var str: String; newText: String);