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