Objekte müssen erzeugt und wieder freigegeben werden
Delphi-Quellcode:
var MyTest: TEinTyp;
...
MyTest := TEinTyp.Create();
...
MyTest.Free
...ausserdem was erwartest du von deiner Variablen Cut?
...es hat keine Wert zugewiesen bekommen, was soll es nach deiner Meinung bewirken?