case???

[ivandelphi]

alguien me podria decir como puedo hacerle para tratar de realizar un proble con case en delphi tengo que convertir de numero a texto bieno para no hacerlo tan largo aqui le spongo la parte del codigo en el que tengo problemas espero y alguien me pueda decir que hacer gracias!!!

case decena of
1: case uniddad of
0: begin texto7.Text:= 'Diez';end;
1: begin texto7.Text:= 'Once';end;
2: begin texto7.Text:= 'Doce';end;
3: begin texto7.Text:= 'Trece';end;
4: begin texto7.Text:= 'Catirce';end;
5: begin texto7.Text:= 'Quince';end;
6: begin texto7.Text:= 'Dieciseis';end;
7: begin texto7.Text:= 'Diecisiete';end;
8: begin texto7.Text:= 'Dieciocho';end;
9: begin texto7.Text:= 'Diecinueve';end;
end
2: begin texto7.Text:= 'Veinte';end;
3: begin texto7.Text:= 'Treinta';end;
4: begin texto7.Text:= 'Cuarenta';end;
5: begin texto7.Text:= 'Cincuenta';end;
6: begin texto7.Text:= 'Sesenta';end;
7: begin texto7.Text:= 'Setenta';end;
8: begin texto7.Text:= 'Ocheta';end;
9: begin texto7.Text:= 'Noventa';end;
end