crear funciones en delphi

[ecfisa]

Hola sonymix.

Suponiendo que la función sea:

function NumALetras(const Num: string): string;

Y el TEdit donde escribís los números se llame Edit1, podés usar el evento OnExit de Edit1 para llamar a la función y asignar el resultado a EDit2.
( Supongamos que así se llama el otro edit ).


Estando seleccionado Edit1, en el Object inspector, events, haciendo doble click sobre el evento OnExit:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit2.Text:= NumALetras(Edit1.Text);
end;

No dudes en poner cualquier duda.

Saludos.