Du kannst mit
Delphi-Quellcode:
if Kompo <> nil then // oder besser mit:
if Assigned(Kopo) then
schauen ob dieser Zeiger auf eine Komponente zeigt. Achtung: es können auch mehrere Zeiger auf diese zeigen (oder sogar auch garkeiner).
Das setzt aber voraus das du beim freigeben des Objekts die Zeiger auch auf NIL setzten musst! Anstatt also Kompo.Free; aufzurufen musst du jetzt FreeAndNil(Kompo); schreiben.
edit:
Zitat von
cltom:
Es hat sich ohnehin gelöst, weil offenbar ein Free auf eine nicht existierende Komponente auch keinen Fehler erzeugt ...
.Free; überprüft zuerst ob das Objekt existiert, wenn ja wird .Destroy aufgerufen.