Hallo padavan,
wenn es nur um das Einfangen und Freigeben geht, dann würde ich das so machen:
Delphi-Quellcode:
procedure TMainForm.CaptureButtonClick(Sender: TObject);
begin
with FloatingForm do
if Assigned(Parent)
then Parent := nil
else Parent := self;
end;
Grüße vom marabu