como creo funcion ?

[dec]

Hola,

Sólo quería añadir que Bicho está declarando e implementando métodos de un objeto, más que funciones, simplemente. Implementar una función puede hacerse dentro de la cláusula "implementation" de una determinada unidad, y, si se quiere que dicha función sea accesible desde fuera de dicha unidad, habría que añadir el prototipo de la función, su declaración, dentro de la cláusula "interface". Algo como esto:

Código Delphi [-]
unit UMiUnidad;

interface

implementation

{ Función no accesible desde fuera de esta unidad
}
function Suma(const a,b: integer) : integer;
begin
  Result := a + b;
end;

end.

O esto:

Código Delphi [-]
unit UMiUnidad;

interface

function Suma(const a,b: integer) : integer;

implementation

{ Función accesible desde fuera de esta unidad
}
function Suma(const a,b: integer) : integer;
begin
  Result := a + b;
end;

end.

Pero, en fin, sigo remitiéndote al curso de Delphi que he mencionado antes y a otros que puedas encontrar. Sólo quería decir que Bicho ha utilizado métodos, que, efectivamente, no dejan de ser funciones, pero, funciones que pertenecen a un objeto.