Delphi-Quellcode:
Procedure TForm1.laufwerk(Sender: TObject);
begin
ShowMessage( (Sender as TMenuItem).Name ); // Hier komm ich nicht weiter
end;
Die zwei zusätzlichen globalen Variablen würde ich lokal deklarieren:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
newitem: TMenuItem;
I: Integer;
begin
...und im globalen VAR entfernen
PS: die globale Schleifen-Variable "i" müsste Delphi sogar reklamieren
