Ich habs grad selber gelöst!!! Ich bin so blöd!
Hab
procedure scanit(const orgPath: string; parentMI: TMenuItem);
anstatt
procedure TForm1.scanit(const orgPath: string; parentMI: TMenuItem);
geschrieben!
Edit: Trotzdem vielen Dank für die Mühe! Wie konnte ich das nur vergessen?
