Creo que estas un poco espeso, igual cuando te despejes ya lo solucionas, pero bueno.... ahí vá
Código Delphi
[-]
form1 = class(Tform)
...
public
Procedure SetAutoInc(filename : string; Value : Longint);
end;
implementation
Procedure Tform1.SetAutoInc(filename : string; Value : Longint);
begin
....
end;