MainMenu - Prozeduren bei Items

[freak4fun]

Also muss die Prozedur schon vorhanden sein, gut hab ich verstanden.
Also ich erstelle ja Unterpunkte zu "Rohstoffe". Nehmen wir mal in Stringliste Stehen Integerwerte.
Dann wird, wenn ich auf Rohsoffe klicke eine Liste mit Zahlen nach unten aufgeklappt.
Wenn ich jetzt auf die erste Zahl klicke soll eine Prozedur ausgeführt werden.
Diese Prozedur soll 1 heißen.

Delphi-Quellcode:

procedure eins;
begin
ShowMessage('Sie haben die 1. Option gewählt.');
end;

Dann muss der Aufruf so aussehen?:
RohEintraege[i].OnClick := eins; Dann bekomm ich Folgenden Fehler:

Inkompatible Typen: Methodenzeiger und Reguläre Prozedur.

Was mache ich falsch?

MfG
freak