[Maksuckan]

Господа и дамы.
Имеем следующее:

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 r: integer;
begin
for r:= Stringgrid1.RowCount-1 downto 1 do
    if StringGrid1.Cells[3, r] = '0' then
    THackGrid(StringGrid1).DeleteRow(r);

end;

Удаляем строки, имеющие значение 0.
Но необходимо, чтобы сразу добавлялись и новые чистые строки в конец сетки (то есть таблица оставалась статичной, кол-во строк 25)