Como crear procedimiento

[bothy]

Código Delphi [-]
procedure NombreDelProcedimiento ;
begin
..........
...........
............ //codigo de la ecuacion
..........
end;
//y para llamar este procedimiento nomas tendria que poner en el  procedure principal o en un
//boton que tengas para hacer esta ecuacion

procedure TForm1.Button1Click(Sender: TObject);
begin
 NombreDelProcedure;
end;

[[coso]]

Hola,
deberas usar una funcion, la cual te devuelva un valor especifico:

Código Delphi [-]
 
function Solver(a,b,c : integer) : double;
begin
   Solver := a + b + c;
end;
...
var 
    x : double;
begin
    x := Solver(3,2,1);
    ShowMessage(FormatFloat('0.00',x));
end;

yo de ti le echaria un vistazo largo a algun tutorial sobre funciones y procedimientos, porque es algo muy basico y bastante necesario en programacion. Un saludo.

[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.