Addresszeile von FireFox auslesen

[ReDoX]

Hi,
Ich möchte die adresszeile von firfox aus lesen dazu habe ich schon fogenden Code im internet gefunden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hMemo, hHandleDesFensters : HWND;
  Text : pchar;
  len: Integer;
begin
  SetLastError(0);
  hHandleDesFensters := FindWindow('Notepad', nil);
  if hHandleDesfensters <> 0 then
  begin
    hMemo:= FindWindowEx(hHandleDesFensters, 0, 'Edit', nil);
    if hMemo <> 0 then
    begin
      len := SendMessage(hMemo, WM_GETTEXTLENGTH, 0, 0);
      GetMem(Text, len+1);
      try
        try
          SendMessage(hMemo, WM_GETTEXT, len+1, Integer(@Text[0]));
          showmessage(String(Text));
        except
          on E: EOutOfMemory do Messagebox(Handle, PChar(E.Message), 'Fehler', MB_ICONSTOP);
        end;
      finally
        FreeMem(Text, len+1);
      end;
    end
    else
      Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);
  end
  else
    Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);
end;

Wie kann ich das bei FF anwenden?
Ich habe das schon mit

hHandleDesFensters := FindWindow('firefox', nil); und

hMemo:= FindWindowEx(hHandleDesFensters, 0, 'MozillaWindowClass', nil); ausprobiert hat aber nicht funktioniert!
Mfg MrScholz