case???

[[Caral]]

Hola
Bueno yo me hice un ejemplito mas sencillo, tal vez te guie:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
  var
  uniddad : integer;
begin
   uniddad := StrToInt(Edit1.Text);
 case uniddad of
0: begin texto7.Text:= 'Cero';end;
1: begin texto7.Text:= 'uno';end;
2: begin texto7.Text:= 'Dos';end;
3: begin texto7.Text:= 'Tres';end;
4: begin texto7.Text:= 'Cuatro';end;
5: begin texto7.Text:= 'cinco';end;
6: begin texto7.Text:= 'seis';end;
7: begin texto7.Text:= 'siete';end;
8: begin texto7.Text:= 'ocho';end;
9: begin texto7.Text:= 'nueve';end;
10: begin texto7.Text:= 'Diez';end;
11: begin texto7.Text:= 'Once';end;
12: begin texto7.Text:= 'Doce';end;
13: begin texto7.Text:= 'Trece';end;
14: begin texto7.Text:= 'Catirce';end;
15: begin texto7.Text:= 'Quince';end;
16: begin texto7.Text:= 'Dieciseis';end;
17: begin texto7.Text:= 'Diecisiete';end;
18: begin texto7.Text:= 'Dieciocho';end;
19: begin texto7.Text:= 'Diecinueve';end;
20: begin texto7.Text:= 'Veinte';end;
30: begin texto7.Text:= 'Treinta';end;
40: begin texto7.Text:= 'Cuarenta';end;
50: begin texto7.Text:= 'Cincuenta';end;
60: begin texto7.Text:= 'Sesenta';end;
70: begin texto7.Text:= 'Setenta';end;
80: begin texto7.Text:= 'Ocheta';end;
90: begin texto7.Text:= 'Noventa';end;
end;

end;

Saludos