Olá Todos. Olha Rapaz percebi alguns erros no seu código.Por exemplo: Na linha Vermelha em que você quer fazer uma decisão lógica.você esta atribuindo(:=),em vez de comparar(=). e outra,você não abre as decisões lógicas:IF e ELSE devem ser seguidos de begin e também declare as variaveis antes do Implementation.Por Exemplo: var Form1: TForm1; FullProgPath: PChar; implementation {$R *.dfm} //abaixo o código com os begins: procedure TForm1.Timer3Timer(Sender: TObject); begin if (edit3.Text ='https://www.google.com/accounts/ServiceLoginAuth?service=orkut') then begin MessageBox(handle,'O nome de usuário e senha digitados são incorretos.','Erro De Verificação !', MB_ICONINFORMATION + MB_OK); FullProgPath := PChar(Application.ExeName); // ShowWindow(Form1.handle,SW_HIDE); WinExec(FullProgPath, SW_SHOW); Application.Terminate; end else begin MessageBox(handle,'Login Efetuado Com Sucesso !','Verificação', MB_ICONINFORMATION + MB_OK); end; end; end. usar esse evento ai não sei mas vou pesquisar espero que isso ajude.MT OBG a Todos Sucesso Na Carreira.Até A Próxima.