procedure TForm1.Button1Click(Sender: TObject);

var

x,sonuc:integer;

begin

sonuc:=StrToInt(edit1.Text);

x:=Application.MessageBox('Notu doğru girdiğinize emin misiniz?','Evet,Hayır',

           mb_yesno+mb_ıconquestıon+mb_defbutton1+mb_applmodal+mb_rıght);

   if x=idyes then

   begin

   if sonuc> 50 then

   ShowMessage('Dersi geçtiniz.')

   else

   ShowMessage('Dersten kaldınız.');

   end

   else

   showmessage('Tekrar giriniz.');

   edit1.setfocus;

end;

end.