procedura TfmForm.FormCreate (mittente: TObject);
cominciare
ShowWindow (fmChildForm.Handle, SW_HIDE);
SetWindowLong (fmChildForm.Handle, GWL_EXSTYLE, getWindowLong (fmChildForm.Handle, GWL_EXSTYLE) o WS_EX_TOOLWINDOW);
ShowWindow (fmChildForm.Handle, SW_SHOW);
estremità;