[tovarz]

Здравствуйте
Необходимо, чтобы при добавлении новой строки в Stringgrid программа проверяла ее номер и, в зависимости от ее четности/нечетности скрывала ее. Скрытие делаю присваиванием высоте значения -1 (значение 0 не устраивает, т.к. линии между строками выглядят толстыми).
Код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  sg.RowCount:=sg.RowCount+1;
  for i:=1 to sg.RowCount-1 do begin
    if i mod 2 = 0 then
      sg.RowHeights[i]:=-1;
  end;
end;

Но при таком подходе границы между строками вообще исчезают, когда добавляю несколько строк. Как сделать, чтобы границы оставались?
Спасибо