Undock

procedure TRightPaneForm.Undock(const aForm: TCustomForm);
var
 Rect: TRect;
begin
  Rect.Left := Left;
  Rect.Top := Top;
  Rect.Width := Width;
  Rect.Height := Height;
  Rect := ClientToScreen(Rect);
  ManualFloat(Rect);
end;