Ошибка в коде delphi

Что то не увеличивается переменная ban
procedure TForm1.Button1Click(Sender: TObject);
var pass,vhpass:string;
ban:integer;
begin
ban:=0;
pass:=('123');
vhpass:=Edit1.Text;

if (ban>=3) then
begin
Form1.Color:=$0000ff;
showmessage('Âû çàáàíåíû çà ïîäáîð ïàðîëÿ!');
close;
end
else
if (ban<3) then
begin

if vhpass=pass then
begin
Form1.Color:=$00ff00;
Showmessage('Ñïàñèáî çà ðåãèñòðàöèþ!');
form1.Visible:=false;
form3.Show;
end
else
if vhpass<>pass then
begin
Form1.Color:=$0000ff;
showmessage('Íåâåðíûé ïàðîëü!');
ban:=ban+1;
end

end

end;

end.