Mal abgesehen von den Einwänden meiner Vorredner enthält dein Programm sowohl einen syntaktischen als auch einen logischen Fehler:
- class
ist in Delphi ein reserviertes Wort und kann nicht als Name einer Variable verwendet werden. (Soll vermutlich aClass heißen)
- Der Aufruf von Free
führt in der Regel nicht dazu, dass ein nachfolgendes Assigned
fehlschlägt.