Indexen eines Arrays unterschiedliche Proz. zuweisen

[Airblader]

*hust*
Manchmal gehts eben einfacher als man denkt *fg*

Allerdings gehts noch nicht ganz.
Wie muss denn mein Prozedurkopf und die enstprechende Zuweisung aussehen?

Ich habs im Moment so:

Delphi-Quellcode:

procedure MyProc(Sender: TObject);

...

MyArr[i].OnDoMyProc := MyProc;

...

MyArr[i].OnDoMyProc(Self);

Es kommt beim Prozedurkopf (also 1. Teil im QT) folgende Meldung:

Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

MfG,
air

P.S.
@ichbins
Ich will die Prozedur ja auch nicht innerhalb des Records deklarieren
Und das will ich ohne Klasse machen, da die Prozedur sich in kein Muster fassen lässt und eine klasse den QT somit unnötig verlängern würde