crear funciones en delphi

[cloayza]

Amigo Jac Fcc, le aconsejo que utilize las etiquetas que corresponda, ya que facilita la lectura y comprension del codigo que escribe.

Empezado por Jac fcc

procedure TForm_Turno.Button1Click(Sender: TObject);
var
cadena:string;
begin
{uso input, podria ser cualquier otra funcion que devuelva una cadena
y que tenga filtro para aceptar solo digitos
}
cadena := InputBox('Titulo', 'Nombre', '');
{uso tu funcion para convertir la cadena de numeros a letras
y se asigna al campo text
}
EdtDescripcion.Text:=TraduceALetras(cadena);
{siempre y cuando sea una funcion que regrese la cadena convertida.
Si es un procedimiento se necesita crear una variable tipo String para ser pasada por parámetros y asi conservar el valor cambiado:
TraduceALetras(CadenaOriginal,CadenaEnLetra)}
end;
si no es la idea, sorry

Cual se ve y comprende mejor?...

Código Delphi [-]
procedure TForm_Turno.Button1Click(Sender: TObject);
var
  cadena:string;
begin
 {uso input, podria ser cualquier otra funcion que devuelva una cadena
 y que tenga filtro para aceptar solo digitos
 }
 cadena := InputBox('Titulo', 'Nombre', '');
 {uso tu funcion para convertir la cadena de numeros a letras
 y se asigna al campo text
 }
 EdtDescripcion.Text:=TraduceALetras(cadena);
{siempre y cuando sea una funcion que regrese la cadena convertida.
Si es un procedimiento se necesita crear una variable tipo String para ser pasada por parámetros y asi conservar el valor cambiado:
      TraduceALetras(CadenaOriginal,CadenaEnLetra)}
end;

Saludos cordiales