FindWindow ile Handle Öğrenme

[denem3]

Merhaba.

Firefox penceresini istediğim konuma getirmek için Delphi 7 ile bir Windows 10'da çalışacak bir program yazdım. FindWindow ile pencerenin Handle'ini bulup, pencerenin koordinatlarını öğreniyorum. Ama program düzgün çalışmıyor. Düzgün çalışması için önce kendi programımı çalıştırmam, sonra Firefox'u açmam gerekiyor. Aksi halde koordinatları alamıyorum. Kodlar aşağıda, nerede hata yapıyorum?

procedure TForm1.btnBulClick(Sender: TObject);
var
 MyHandle: THandle;
 pozisyon: TRect;
begin
 if rdg1.ItemIndex=0 then //Class'a göre veya pencere başlığına göre arama seçeneği
 begin
   MyHandle:=FindWindow(PChar(cmbHandle.text),nil);
 end
 else
   MyHandle:=FindWindow(nil,PChar(cmbHandle.text));
 if myhandle<=0 then
 begin
   showmessage('Pencere bulanamadi');
   exit;
 end;
 GetWindowRect(MyHandle, pozisyon);
 edtSol.Text:=inttostr(pozisyon.Left);
 edtUst.Text:=inttostr(pozisyon.Top);
 edtSag.Text:=inttostr(pozisyon.Right);
 edtAlt.Text:=inttostr(pozisyon.Bottom);
end;