Duvida Problema com Janelas!

[cesargbi16]

Pessoal, da uma olhada nesse código:

function JanelaAtiva: String;// Função de capturar o titulo da janela
var
Handle:THandle;
Len:LongInt;
Title: String;
begin
Handle:=GetForegroundWindow;
Len:=GetWindowTextLength(Handle) + 1;
SetLength(Title,Len);
GetWindowText(Handle,PChar(Title),Len);
JanelaAtiva:=TrimRight(Title);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
sJanelaOld:=sJanelaAtiva;
sJanelaAtiva := JanelaAtiva;
if sJanelaAtiva = 'orkut - login - Mozilla Firefox' then
if sJanelaAtiva <> sJanelaOld then
Form1.WindowState := wsNormal
else
Form1.WindowState := wsMinimized

end;

Fiz uma aplicação q quando é executada ela fica minimizada, até ai td bem.
Dai coloquei essa função para monitorar as janela e se janela for tela de login de orkut a aplicação subisse normal e se mudasse de tela ela voltava a minimizar.

Mas quando abro a tela de login do orkut ela n sobe fica minimizada so sobe manualmente mas s eu mudo de tela com ela normal da certo ela volta a minimizar.

Então o erro e o seguinte:
Não estou conseguindo fazer com que a aplicação, suba quando a tela de login é aberta.

Teria como vc's me ajudar? Errei em alguma coisa?
Desde de ja muito Obrigado!

[Soultt]

Humm.

eu removi umas partes do seu codigo funcionou porem notei que ele não fica na frente do Browser.

então resolvi assim:

if sJanelaAtiva <> sJanelaOld then
begin
Form1.WindowState := wsNormal;
FormStyle:= fsStayOnTop;
end
else
...