Procedure schreiben die bei Objekten Eigenschften setzt!

[Christian18]

Hallo,

so jetzt muss ich die Procedure noch erweitern. Das funktioniert aber nicht so ohne weiteres!!!

ich will jetzt noch

o.Font.Styles:=[];

drinn haben. Also ich will an die Procedure einen weiteren Parameter übergeben er heisst b wenn b 1 dann

o.Font.Styles:=[fsBold];

wenn b=0 dann

o.Font.Styles:=[];

wie kann ich das machen???? TControl kann leider kein Font.Styles

hier der code den ich bis jetzt habe!!!
<EDIT>

Delphi-Quellcode:

procedure TProgramm.Objekt(o : TControl; w, h, l, t : Integer);
begin
  if w <> 0 then o.Width:=w;
  if h <> 0 then o.Height:=h;
  if l <> 0 then o.Left:=l;
  if t <> 0 then o.Top:=t;
end;

</EDIT>

MFG Christian18