vll. solltest du die fehlermeldungen mal lesen.
Zitat:
Fehler] Unit1.pas(117): Anweisung erwartet, aber 'VAR' gefunden
du darfst variablen nur vor dem beginn festlegen. gilt auch fuer konstanten, typen und funktionen.
Zitat:
[Fehler] Unit1.pas(162): ';' erwartet, aber '.' gefunden
ganz am ende hast du einen try finally block den du mit einem end; abschliessen muss
ect.
befass dich erstmal mit den grundlagen delphi's