procedure TfmForm.FormCreate(Sender: TObject) ;
begin
ShowWindow(fmChildForm.Handle, SW_HIDE) ;
SetWindowLong(fmChildForm.Handle, GWL_EXSTYLE, getWindowLong(fmChildForm.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ;
ShowWindow(fmChildForm.Handle, SW_SHOW) ;
end;