Du kannst deiner procedure einen Parameter vom Typ TComponent verpassen:
Delphi-Quellcode:
procdure HalloWelt(AComponent: TComponent);
begin
if AComponent is TEdit then
TEdit(AComponent).Text := 'Hallo, Welt!'
else
ShowMessage('Kein TEdit übergeben sondern folgende Klasse: ' + AComponent.ClassName);
end;
....
....
HalloWelt(Edit1);
HalloWelt(Button1);
etc...