method pointer und regular procedure

[StanY]

Delphi-Quellcode:

  TConnection = class(TIdTCPClient)
    Thread: TMyThread;
  private
    Channel: Array of TChannel;
  end;

Delphi-Quellcode:

procedure OnConnect(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to High(Connection) do begin
    if (Sender = Connection[i]) then
      Break;
  end;

  Connection[i].Thread.Resume;
end;

Und hier liegt der Fehler:
'incompatible types: method pointer and regular procedure'

Connection[i].OnConnected := OnConnect; Vielen Dank im Vorraus.

(es ist eine Konsolenanwendung, wenn das eine Rolle spielt)