Programalama > DELPHI

unit Unit1;

interface

uses
windows,messages,sysutils,classes,graphics,controls,forms,dialogs;

type
TForm1=class(TForm)
TForm2=class(TForm)
Edit1:TEdit;
Button1:TButton;
Button2:TButton;
procedure Button1Click(Sender:TObject);
procedure Button2Click(Sender:TObject);
private
{  Private declarations  }
public
{  Public declarations  }
end;
var
Form1:TForm1;
Form2:TForm2;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);
var
sifre:string;
Begin
sifre:='bahar'; \\istediğiniz şifreği verin.
if sifre=Edit1.Text  then  
begin
Form1.Hide;
Form2.Show;
end
Else
Begin
hak:=hak+1;
Showmessage('Hatalı şifre girdiniz!!!');
Edit1.Text:='';
if hak>3 then
Begin
Showmessage('Malesef Hakkınız doldu.');
Halt;
end;
end;
end;
end.