Procedure schreiben die bei Objekten Eigenschften setzt!

[Luckie]

Wie wäre es mit:

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TObject, w, h, l, t : Integer);
begin
  o.Width := Width;
end;

Vorher eventuell noch prüfen, ob das passende Objkekt übergeben wurde mit dem is Operator:
if (o is TEdit) then