procedimiento TfmForm.FormCreate (remitente: TObject);
comenzar
ShowWindow (fmChildForm.Handle, SW_HIDE);
SetWindowLong (fmChildForm.Handle, GWL_EXSTYLE, getWindowLong (fmChildForm.Handle, GWL_EXSTYLE) o WS_EX_TOOLWINDOW);
ShowWindow (fmChildForm.Handle, SW_SHOW);
extremo;