Şifre Yaratma

[hasanramazan]

Edit butona gerek kalmaksızın kodla oluşturulan güzel bir örnek
3 hakta verilmiştir,3 hakkını bilemedimi kişi form açılmıyacaktır,
gerekli kodu form create yazmak yeterlidir ama ben komple
bırakacağım en azından end bitişlerinde hata almassınız

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
sayi:Integer;
sifre:AnsiString;
dugme:Boolean;
begin
sayi:=1;
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
if dugme Then
begin
while(sifre<>'1234')do
begin
if sayi>=3 Then
begin
ShowMessage('Üç Hakkınızdada Bilemediniz. Program Kapanacak');
Halt;
end
else
begin
dugme:=InputQuery('Şifreyi Giriniz','Şifre',sifre);
inc(sayi);
end;
end;
end
else
begin
ShowMessage('Program Kapatılacak');
Halt;
end;
end;
end.