Из числа - в слово Опции

[DocNo]

Здравствуйте.
Возник такой вопрос. Нужно перевести число в слово. Например я ввожу 5, мне соответствено выведут - пять.

Вопрос состоит не в самой реализации, а в ситаксисе кода.
Если я делаю так все работает.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='5' then Edit2.Text:='пять';
//--//
end;

Вопрос! Как заставить case извлекать значение из компонента TEdit?
Напримере такого:

procedure TForm1.Button1Click(Sender: TObject);
var
y:string;
begin
case Edit1.Text of
'5': y:='пять';
//--//
end;
Edit2.Text:=y;
end;

[volvo]

Как заставить case извлекать значение из компонента TEdit?

Вообще-то в DRKB есть модули, которые это делают...

Если очень просто - тогда:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  case StrToIntDef(Edit1.Text, -MaxInt) of // если в Edit1 не число - вернет -MaxInt
    1: s := 'один';
    2: s := 'два';
    3: s := 'три';
    // ...

    -MaxInt: s := 'Не число'
  end;
  Edit2.Text := s;
end;