Suchalgorithmus

[Piro]

Hallo ich habe ein Problem mit meinem Suchalgorithmus, der lautet:

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
 x,i: Integer;
begin
 for i:=adressbuch.Row to adressbuch.RowCount -1 do
 begin
     for x:=0 to 16 do
     begin
         if adressbuch.cells[x,i] = FindDialog1.FindText then
         begin
             adressbuch.Row := i;
             Inc(x); hier kommt der Fehler//[Error] form.pas(920): Assignment to FOR-Loop variable 'x'
             exit;
         end;
     end;
 end;
End;

Kann mir mal einer erzählen warum das nicht geht? Denn ich muss eine Spalte weiter gehen sonst sucht er nicht weiter.

Danke