Problemas para crear una funcion

[fartycl]

Lo que pasa es que al declarar la funcion me tira un error

Código Delphi [-]
   Function Ptotal(cuenta:Integer):String;

esta es la funcion

Código Delphi [-]
Function Ptotal(cuenta:Integer):String;
var a:integer;
    cTotal:String;
begin
cTotal:='0';
If Fvta.SqlTemp.RecordCount <> 0 then
Fvta.SqlTemp.First;
For a:=1 to Fvta.SqlTemp.RecordCount do
begin
   Ctotal:= IntToStr(StrToInt(Ctotal)+StrToInt(Fvta.sqltemp.FieldByName('importe').AsString));
  Fvta.SqlTemp.Next;
end;
Result :=ctotal;
end;

y este es el error: Unsatisfied forward or esternal declaration: 'TFVTA.Ptotal'

Fvta es el nombre de mi formulario

bien si me pueden ayudar seria grandioso

[[seoane]]

Dejame adivinar, declaraste la funcion dentro de la declaracion del formulario FVTA, por lo que en la implementacion deberias haber puesto esto:

Código Delphi [-]
Function TFTVA.Ptotal(cuenta:Integer):String;
var a:integer;
    cTotal:String;
begin
cTotal:='0';
If Fvta.SqlTemp.RecordCount <> 0 then
Fvta.SqlTemp.First;
For a:=1 to Fvta.SqlTemp.RecordCount do
begin
   Ctotal:= IntToStr(StrToInt(Ctotal)+StrToInt(Fvta.sqltemp.FieldByName('importe').AsString));
  Fvta.SqlTemp.Next;
end;
Result :=ctotal;
end;

otra solucion es dejarla como esta pero sacar la declaracion de dentro de la declaracion del formulario. Espero haberme explicado