[fehler]
unit.pas(41) anweisung erwaret var gefunden
[fehler]
unit.pas(48) undefinierter bezeichner 'Sender'
und ich hab noch was geändert und nun kommen zwar wenige fehler aber diese hier dazu
[warunung] unit1.pas(48) vorzeichenbehaftete und lose typen werden verglichen beide operanden werden erweitert
[warunung] unit1.pas(50) vorzeichenbehaftete und lose typen werden verglichen beide operanden werden erweitert
also die fehler sind weniger geworden.