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

[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;