Procedure TForm1.FormCreate(SEnder: TObject);  
Var ExtEndedStyle:dword;  
Wnd : hWnd;  
buff : Array[0.. 127] of Char;  
Begin  
Wnd := GetWindow(Handle, gw_HWndFirst);  
While Wnd <> 0  
DO  
Begin  
If (Wnd <> Application.Handle)  
and (GetWindow(Wnd, gw_Owner) = 0) Then  
Begin GetWindowText (Wnd, buff, sizeof (buff ));  
If StrPas (buff) = Application.Title Then  
Begin Halt;  
End;  
End;  
Wnd := GetWindow (Wnd, gw_hWndNext);  
End;  
End;