Komponenten zur Laufzeit erstellen mit Ereignissen unter FPC

[stiftII]

Zu früh gefreut ...

Das Ereignis wird niemals aufgerufen.

Aufgerufen wird es als:

Delphi-Quellcode:

procedure TForm1.colorfulcombobox(Control: TWinControl; Index: Integer;
  ARect: TRect; State: TOwnerDrawState);
begin
      ShowMessage('test');
end;

Und deklariert so:

Delphi-Quellcode:

           comboboxesadd[i] := TCombobox.Create(Form1);
           comboboxesadd[i].OnDrawItem := @colorfulcombobox;

Warum klappt das so nicht ?