Delphi Mesaj Kutusu

delphi

procedure TForm2.Button1Click(Sender: TObject);
var
sayi:Integer;
begin
        sayi:=StrToInt(Edit1.Text);
          case sayi of
              1:ShowMessage('Bir');
              2:ShowMessage('İkin');
              3:ShowMessage('Üç');
              4:ShowMessage('Dört');
              5:ShowMessage('Beş');
              6:ShowMessage('Altı');
              7:ShowMessage('Yedi');
              8:ShowMessage('Sekiz');
              9:ShowMessage('Dokuz');
              10:ShowMessage('On');
              else
              ShowMessage('Girdiğiniz değer 1-9 aralığında değildir.');
          end;
end;