crear funciones en delphi

[sonymix]

bueno si este puede funcionar pero mi funcion se declaro asi
Form1: TForm1;
function extenso (valor: real): string;
implementation
asi que tengo un problema de compatibilidad de type y trate de poner lo asi
edit2.text:=extenso(floattotext(edit1.text)); no me resulto

[Jac fcc]

claro, la idea que haces sería:

procedure TForm1.Button1Click(Sender: TObject);
var
valorReal:Real;
begin
try
valorReal:=StrToFloat(Edit1.Text);
Edit2.Text:=extenso(valorReal);
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;
end;


o más simple:

try
Edit2.Text:=extenso(StrToFloat(Edit1.Text));
except
MessageDlg('Ingrese un numero ',mtError,[mbOk], 0);
end;