wld

estou testando meu algoritmo do delphi, estou criando um login com 3 tentativas, caso esteja certa abri um outro formulario, caso contrario digita a senha novamente, se errar 3 vezes fecha o sistema. procedure TForm1.Button1Click(Sender: TObject); var x,senha,cont:integer; begin senha:=StrToInt(Edit1.Text); if senha = 123 then begin Label1.Caption:='senha correta'; if Form2 = nil then Form2:=TForm2.Create(self ); Form2.ShowModal; end; end else for x:=1 to 3 do begin Label1.Caption:='senha incorreta'; Edit1.SetFocus; cont:=x+1; end; Form1.Close; end; end. só que não está dando certo, alguém de vocês poderiam em ajudar?!