Kod:
procedure TForm1.FormCreate(Sender: TObject);
var
x,b:string;
begin
b:='Buraya şifre giriniz';
x:=inputbox('Programa Giriş','Programa girmek için şifreyi Giriniz:','');
if x=b then
application.messagebox('Programa Girişiniz Onaylandı.Tebrikler ..!','Tebrikler',mb_ok+mb_defbutton1)
else
halt;
end;
end.