du bist schon auf dem richtigen Weg. Du musst jedem Mainmenü-Item die gleiche Procedure(Methode genannt) im Objectinspektor zuweisen und dann anhand des Senders überprüfen welches Item die Methode aufgerufen hat.
Mit Case geht das jedoch nicht weil case einen Ordinalwert erwartet (und Sender ist ein Object). Zudem braucht Case konstante Vergleichswerte und MenuItem1, MenuItem2 etc. haben jedesmal eine andere Speicheradresse womit sie nicht konstant sind.
Du musst also mit If's das ganze prüfen
Delphi-Quellcode:
if (Sender = MenuItem1) then
begin
end
else if (Sender = MenuItem2) then
begin
end;