При удалении строки в StringGrid не удаляется первая ячейка(первый столбец)

[DuMaHc]

Помогите пожалуйста при удалении строки в StringGrid не удаляется первая ячейка(первый столбец), вот код при нажатии на кнопку

procedure DeleteGridRow(i:integer);
var k,j: integer;
begin
 for k:=i to form1.StringGrid4.rowcount-2 do
  for j:=1 to form1.StringGrid4.colcount-1 do
     begin
        form1.StringGrid4.cells[j,k]:=form1.StringGrid4.cells[j,k+1];
        form1.StringGrid4.Repaint;
     end;
     form1.StringGrid4.rowcount:=form1.StringGrid4.rowcount-1;
end;

procedure TForm1.Button7Click(Sender: TObject);
var i: integer;
begin
 for i:=StringGrid4.RowCount-1 downto StringGrid4.FixedRows do
   if StringGrid4.Cells[5,i] = '' then
     DeleteGridRow(i);
end;

[Stilet]

Попробовать так не хочешь?: http://www.programmersforum.ru/showthread.php?t=162049

[DuMaHc]

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

Попробовать так не хочешь?: http://www.programmersforum.ru/showthread.php?t=162049

Пробовал вообще ничего не получилось

[DuMaHc]

Все решил проблему for j:=1 to form1.StringGrid4.colcount-1 do, необходимо j:=0