Fórum Pesquisa campo auto-incremento = erro!! #218748

Bom dia pessoal.... eu precisei transformar um campo da minha tabela em ´Auto incremento´ ou seja no Database Desktop eu abri minha tabela ´TimeCode´ e alterei o campo ´NControle´ de (A 4) para (+)(Auto-incremento).... Só que aconteceu um problema que eu não estou conseguindo contornar!!!!!

No On-Create do meu Form Pesquisa existe a seguinte informação

procedure TFormPesquisaImagem.FormCreate(Sender: TObject);
begin
TableTimeCode.Open;
While not TableTimeCode.Eof do
begin
if (ComboBox1.Items.IndexOf(TableTimeCode.FieldByName(´DescricaoImagem´).Value) = -1) then
ComboBox1.Items.Add(TableTimeCode.FieldByName(´DescricaoImagem´).Value);
TableTimeCode.Next;
end;
end;

Eu fiz este código para o meu Combobox preencher com todas as minhas ´Descrições de Imagens´ quando o formulário é aberto!

Quando eu clico no botão pesquisa que tem o seguinte código abaixo aparece uma mensagem de erro (´ ´Texto digitado´ is not a valid integer value for field ´ NControle´ ´) Alguém sabe o que eu estou fazendo de errado???

procedure TFormPesquisaImagem.BitBtn1Click(Sender: TObject);
var
DescImagem: String;
begin
if ComboBox1.Text = ´´ then
begin
ShowMessage(´Digite ou selecione o nome da Imagem!´);
ComboBox1.SetFocus;
Exit;
end;

DescImagem := ComboBox1.Text;
TableTimeCode.FindKey([DescImagem]);
TableTimeCode.CancelRange;
TableTimeCode.IndexName := ´IDescricaoImagem´;
TableTimeCode.SetRange([DescImagem],[DescImagem]);
if TableTimeCode.Eof then
begin
TableTimeCode.CancelRange;
ShowMessage(´Nenhuma imagem encontrada!´);
Height:=128;
ComboBox1.Text:=´´;
ComboBox1.SetFocus;
end
else
begin
Height := 310;
Top := 110;
Combobox1.Text:=´´;
Combobox1.SetFocus;
end;
end;