3- Giriş butonuna bastığımızda inputquery fonksiyonu ile ismimizi isteyen ve tamama mı iptale mi bastığımızı kontrol eden program.

procedure TForm1.Button1Click(Sender: TObject);

var

a:Boolean;

c:ansistring;

begin

a:=InputQuery('Kişisel Bilgiler','İsmi Giriniz :',c);

if a=True then

ShowMessage('Tamam butonuna bastınız. İsminiz '+c)

else

ShowMessage('iptal butonuna bastınız. Giriş iptal edildi.');

end;
 

end.