[rrf]

Este ejemplo es de una función que recibe parámetros y devuelve un resultado y se declara en la cabecera de la unit.

Se incluye un etiqueta (label1) y un botón (button1) en el form.

Este es el código completo, espero que te sirva.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;

            // Aquí se declara la función "Mi_Ecuacion". De esta manera
            // podrá ser llamada desde otra Unit de esta forma:
            //     "Form1.Mi_Ecuacion ( 3, 2, 5 ); "
    Function Mi_Ecuacion( v1, v2, v3 : integer): real ;

    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

   // recibe v1, v2 y v3 que son valores enteros y devuelve un valor "real"
function TForm1.Mi_Ecuacion(v1, v2, v3: integer): real ;
begin

    // "result" es el valor que devolverá la función
  result := ( v1 + v2 ) / v3 ;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    // Muestra el resultado de la ecuación en Label1
    // 3, 4 y 8  son los valores que se dan para que se haga el
    // cálculo con la función "Mi_Ecuacion". Pueden ser otros valores, claro.

  Label1.Caption := FloatToStr(   Mi_Ecuacion ( 3, 4, 8 )  ) ;

end;

end.

Está probado en Delphi 7 y funciona bien.

Salu2.

Ramón.