Lösung meines Problems
Ist wohl nur eine von vielen, oder.
hier auch noch das original falls der link oben nicht funktionieren sollte:
in main form:
ChildForm:=TChildForm.Create(Self);
ChildForm.Tag:=LongWord(@ChildForm);
in child form:
implementation
procedure TChildForm.FormDestroy(Sender: TObject);
begin
LongWord(Ptr(Tag)^):=0;
end;
LongWord(Ptr(Tag)^):=0; kann man auch gleich in form close einfügen dannach noch action:=cafree und schon tuts!
have fun