Procedure schreiben die bei Objekten Eigenschften setzt!

[r2c2]

wie wärs mit

Delphi-Quellcode:

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

So stellst du sicher, dass es sich um ein Control handelt und ersparst dir fehlerträchtige TypeCasts...

mfg

Christian