procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:=";

hata:=0;

assignfile(dsy,&l039;c:&l92;basri.dat&l039 ;

&l123;&l036;i-}reset(dsy);&l123;&l036;i+}

if ioresult<>0 then rewrite(dsy);

for i:=0 to filesize(dsy)-1 do begin

seek(dsy,i);read(dsy,a);

if a.kilit=&l039;*&l039;then begin

showmessage(&l039;kilitli&l039;

halt;

end;

end;

end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if ord(key)=13 then begin

sifre:=&l039;basri&l039;;

if edit1.Text<>sifre then begin

hata:=hata+1;

edit1.Text:=";

end

else if edit1.Text=sifre then begin

form2.Show;

end;

if hata>=3 then begin

a.kilit:=&l039;*&l039;;

seek(dsy,filesize(dsy));write( dsy,a);

halt;

end;

end;

end;