como creo funcion ?

[roman]

En pascal una función se declara así:

Código Delphi [-]
function MiFuncion(parámetros): tipo;
begin
  (*
    código de la función
  *)

  Result := valor_de_vuelta;
end;

Ejemplo:

Código Delphi [-]
{ Suma dos números enteros }
function Suma(A, B: Integer): Integer;
begin
  Result := A + B;
end;

Ahora, ¿dónde implementarla?

En pascal, una unidad tiene la siguiente estructura:

Código Delphi [-]
unit nombre_de_unidad;

interface

implementation

end.

Debes poner la implementación en lasección implementation

Código Delphi [-]
unit nombre_de_unidad;

interface

implementation

function Suma(A, B: Integer): Integer;
begin
  Result := A + B;
end;

end.

Puesto así nada más, sólo podrás usar la función en la misma unidad. Para poder usarla en otras unidades, debes "exportarla" colocando su encabezado en la sección interface:

Código Delphi [-]
unit nombre_de_unidad;

interface

function Suma(A, B: Integer): Integer;

implementation

function Suma(A, B: Integer): Integer;
begin
  Result := A + B;
end;

end.

// Saludos