Удаление в StringGrid

[program123]

Нужно чтобы при верном условии строка уходила в StringGrid2 и удалялась из StringGrid1, но удаляет не одну строку i а еще и следующую. Объясните почему происходит удаление двух строк .
Код:
k:=1;
for I := 1 to StringGrid1.RowCount do
if stringgrid1.Cells[3,i]='100' then
begin
stringgrid2.Cells[0,k]:=stringgrid1.cells[0,i];
stringgrid2.Cells[1,k]:=stringgrid1.Cells[1,i];
stringgrid2.Cells[2,k]:=stringgrid1.Cells[2,i];
stringgrid2.Cells[3,k]:=stringgrid1.cells[3,i];
SG(StringGrid1).DeleteRow(i); // У Д А Л Е Н И Е

end;

[Квэнди]

1. Строки исчисляются с нуля.
2. Вы изменяете переменную цикла в самом цикле. После удаления сразу же надо прерывать цикл

[program123]

Что значит прерывать, не совсем понял

[Квэнди]

Напишите лучше примерно так:

var i:integer;
begin
i:=-1;k:=1;
while (stringgrid1.Cells[3,i]<>'100')and(i<StringGrid1.rowcount) do
inc(i);
if (i>=0)and(i<StringGrid1.rowcount) then
begin
stringgrid2.Cells[0,k]:=stringgrid1.cells[0,i];
stringgrid2.Cells[1,k]:=stringgrid1.Cells[1,i];
stringgrid2.Cells[2,k]:=stringgrid1.Cells[2,i];
stringgrid2.Cells[3,k]:=stringgrid1.cells[3,i];
StringGrid1.DeleteRow(i);
end;
end;

[mihali4]

Сообщение от program123

Что значит прерывать, не совсем понял

Выполнение цикла прерывается командой break.

[program123]

Спасибо, сделал прерыванием Break.

[ryzubexx]

А у меня Breack не получилось, как сделал?

[AlDelta]

Break <> Breack

Читайте внимательно

[Квэнди]

не стремитесь к использованию прерываний цикла. Это совершенно не красивый тон в программировании. Это конечно не goto но уже близко.