Problemas para crear una funcion
 

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

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