[Delphi] StringGrid ingevoerde data enter

[VIsje]

Hallo,

Ik ben met een programma bezig. Daarvoor word een aangeklikte rij van een dbgrid geeporteerd naar een stringgrid.
Alleen hij blijft steeds hangen op dezelfde regel. Hij spring niet naar een nieuwe regel.

code:

procedure TForm1.Button1Click(Sender: TObject);

var
x : Integer;
b : TBookMark;
begin
b := ADOTable1.GetBookmark;
ADOtable1.DisableControls;
For x := 0 to DBGrid1.SelectedRows.Count-1 do
 begin
  ADOTable1.Bookmark := DBGrid1.SelectedRows.Items[x];
 Form2.Stringgrid1.Cells[1,16] := Form2.Stringgrid1.Cells[1,16] + ADOTable1.FieldByName('hoco #').Value;
 Form2.Stringgrid1.Cells[2,16] := Form2.Stringgrid1.Cells[2,16] + ADOTable1.FieldByName('merk').Value;
 Form2.Stringgrid1.Cells[3,16] := Form2.Stringgrid1.Cells[3,16] + ADOTable1.FieldByName('type').Value;
 Form2.Stringgrid1.Cells[4,16] := Form2.Stringgrid1.Cells[4,16] + ADOTable1.FieldByName('deel').Value;

 end;
ADOTable1.GotoBookmark(b);
ADOTable1.FreeBookmark(b);
ADOTable1.EnableControls;
DBGrid1.SetFocus;
Form2.visible:= true;

end;

Hoe springt hij na een andere regel als ik op button1 klik zodat ik een lijst krijgt met alle artikelen?

[LordLarry]

Snap je wel hoe Cells[] werkt? Ze komen elke keer in hetzelfde hokje omdat je ze daar ook elke keer instopt. Hier moet je toch echt zelf wel uit komen hoor.