Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**PeterKiers**

Hallo Leute,

Mein Procedure funktioniert nicht?

Delphi-Quellcode:

			procedure TChangeFont.FormCreate(Sender: TObject);

var

  i, minFontSize, maxFontSize:Integer;

begin

  minFontSize:=4;

  maxFontSize:=48;

  for i:=minFontSize to maxFontSize do

  ListBox3.Items.Add(IntToStr(i));

  Listbox1.Items := Screen.Fonts;

  ListBox2.Items.AddObject('Regular',TObject(fsNormal));

  ListBox2.Items.AddObject('Italic',TObject(fsItalic));

  ListBox2.Items.AddObject('Bold',TObject(fsBold));

  [b]ListBox2.Items.AddObject('Bold Italic',TObject(fsBold, fsItalic)); [/b]    //ERROR 

end;

Fehlermeldung:

[Error] ChangeFontu.pas(94): ')' expected but ',' found

Peter Kiers