[*Caro*]

Hola:

Código Delphi [-]
function funcion(cadena:String;formulario:TForm):Boolean;
var
    resultado:Boolean;
begin
       ...........       
       result:=resultado;
end;

Saludos