Es gibt da einen try-finally Block:
Delphi-Quellcode:
try
edit1.text := 'hallo'; // Wenn in dieser Zeile ein Fehler auftritt
edit2.text := 'danke'; // diese Zeile hier auch noch ausführen
finally
Edit1.free;
Edit2.free;
End;
Ich übernehme kein Haftung für die Richtigkeit!
, aber wo soll den bei so einer Übergabe ein Fehler auftreten?