Delphi-Quellcode:
procedure TuDies(NehmeString: String);
begin
MainFrm.Button1.Caption := NehmeString;
MainFrm.Label1.Caption := NehmeString;
MainFrm.Caption:= NehmeString;
end;
...und schon hast Du 2 Zeilen gespart, aber trotzdem mehr getippt.
Das was Du möchtest, geht nicht mit Delphi.