Помогите пожалуйста, не пойму как через процедуру изменять переменную
Код:
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;
после выполнения процедуры текст остаётся такой же