Lazarus- PopupMenu zeigt merkwürdiges Verhalten

[Codix32]

Ich habe auf einer Listbox eine PopupMenü Komponente liegen mit dem Menüeintrag 'löschen'.

Bei meinem Delphi funktioniert das einwandfrei, also:
Rechtsklick auf einen Listboxindex dann kommt der Menüeintrag 'löschen', dann drauf klicken und schon ist der LB Index gelöscht.

Bei Lazarus aber markiere ich den LB Index, rechtsklicke darauf und der LBIndex ist gelöscht, aber erst nach dem Löschen erscheint der Menüeintrag 'löschen'.
Ich komme da nicht weiter.

An dieser Procedure wird es wohl nicht liegen,oder?:

Delphi-Quellcode:

procedure TForm1.loeschen1Click(Sender: TObject);
begin
Listbox1.MultiSelect:=False;                   //<- sonst wird die ganze LBox gelöscht!
Listbox1.items.Delete(Listbox1.itemIndex);
aktuell;
Listbox1.items.SaveToFile('Uebersicht.txt');
end;

Wer kann mir da weiterhelfen?