Problemas para crear una funcion

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