[[felipe88]]

Empezado por josi

Código Delphi [-]
var
id,id2:string;
begin
clientetable1.Last;
clientetable1.Insert;
 id:='0001'; // <--- Aqui
 if clientetable1.FieldValues['codigo']=null then

  clientetable1.FieldValues['codigo']:= id
 else
 begin
 id2:=clientetable1.FieldValues['codigo']+1;
 id:='000'+id2;

end;
end;

Esto lo haces cada que creas uno nuevo
Ademas, no deberia ser integer ?