OK, ich verstehe, erstmal danke für ausführliche die Hilfe
!
Wäre denn auch folgender Aufbau sinnvoll (so würde ich es dann machen wollen):
Delphi-Quellcode:
procedure TForm1.TuWas;
var
Test: TTest;
begin
try
Test := TTest.Create();
try
// Irgendwas mit Test anstellen
finally
FreeAndNil(Test); // habe mir eben FreeAndNil angewöhnt ;)
end;
except
ShowMessage('Es trat in Prozedur "TuWas" ein Fehler auf.');
end;
end;