das end; vor var ist falsch. das gehört an die Stelle weiter oben, um die Klassendeklaration des Formulars abzuschließen...
Das ist dann aber nur in Lazarus falsch, in Delphi ist das so korrekt. Das Feature nennt sich nested types und gibt es in Delphi seit Version 2006.
Free Pascal unterstützt seit 2.4.2 ebenfalls nested types. Der Code Auszug von haderlump würde auch in einem aktuellen Delphi nicht kompilieren, da der Typ
kontakt_
außerhalb von
TForm1
als
TForm1.kontakt_
angesprochen werden muss.
Gruß,
Sven