[flips]

Доброго времени суток, нужна помощь по выводу записи в StringGrid.
Все данные выводит нормально, но добавляет пустые строки, как их убрать программно?
Вот код:

Код:

procedure ColCompStud(A:TArr;cnt:integer;SG1:TStringGrid);
var i,j:integer;
begin
j:=0;
 for i:=1 to cnt do
  if (A[i].KolComp/A[i].KolStud)>=1 then
   begin
    inc(j);
    SG1.Cells[0,j]:=inttostr(A[i].NumRM);
    SG1.Cells[1,j]:=inttostr(A[i].KolComp);
    SG1.Cells[2,j]:=A[i].NalichFring;
    SG1.Cells[3,j]:=inttostr(A[i].KolStud);
    SG1.RowCount:=SG1.RowCount+1;
   end;
end;

Задание этой процедуры вывести в StringGrid все комнаты где на каждого жильца не менее 1-го компьютера.