Esta mensagem e erro

Ela aparece quando compilo o projeto

[color=red:afd5847138][Warning]Pedido_Cliente.pas(1765): For loop control variable must be simple local variable[/color:afd5847138]

Esse loop e o motivo da mensagem
Como devo fazer para que não apareça essa mensagem

{----------------------------Sequencia------------------------------------}
if dm_Estoque.Itens.State in [dsInsert] then begin
for I := Sequencia.Items.Count - 1 downto 0 do
begin
if Sequencia.Items[I] = cod_Produto.Text then
begin
MessageDlg(´Produto Já digitado na Seqüência ---> ´
IntToStr(I + 1), mtInformation, [mbOK], 0);
dm_Estoque.ITENS.Cancel;
cod_Produto.SetFocus;
Exit;
end;
end;
end;
{-------------------------------------------------------------------------}
desde já obrigado

wollney@terra.com.br