procedimento TfmForm.FormCreate (remetente: TObject);
começar
ShowWindow (fmChildForm.Handle, SW_HIDE);
SetWindowLong (fmChildForm.Handle, GWL_EXSTYLE, getWindowLong (fmChildForm.Handle, GWL_EXSTYLE) ou WS_EX_TOOLWINDOW);
ShowWindow (fmChildForm.Handle, SW_SHOW);
extremidade;