Campo contador o que esta errado?

Por favar amigos.
Quero criar um campo que incremenet o codigo. Esta aparencendo esse erro.

Project.exe exception class econverterror
with messge ´is not integer value process stopped´

procedure TformForn.btnAdicionarClick(Sender: TObject);
var
NovoCodigo:integer;
begin
Posicao1;
limpatela;
edtrazaoSocial.setfocus;
{novoCodigo:=strtoint(dmBasedados1.TblTabelaSistemaCodigoFornecedor.asString);
NovoCodigo:=NovoCodigo + 1;
DmBaseDados1.tblTabelaSistema.edit;
edtCodigo.text:=Inttostr(NovoCodigo);
DmBasedados1.tblTabelaSistemaCodigoFornecedor.AsString:= edtCodigo.text;
dmBaseDados1.tblTabelaSistema.Post;}


end;