Delphi Form Açılışına Şifre Koymak

var
yazi:String;
i:integer;
Begin
i:=0;
Repeat
yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz','');
if yazi<>'123456789' then
i:=i+1;
if i=3 then begin
showmessage('3 kez hatalı şifre girdiniz program kapatılıyor');
Halt;
end;
until yazi='123456789';
form2.show;
end;