Пока получилось вот что придемать:
var
RowNum : Integer;
begin
RowNum := StringGrid1.RowCount - 1;
if StringGrid1.Cells[1, RowNum] <> ' ' then
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;

RowNum := StringGrid1.RowCount - 1;
with StringGrid1 do begin
Cells[1, RowNum] := text1;
Cells[2, RowNum] := text2;
Cells[3, RowNum] := text3;
Cells[4, RowNum] := text4;
end;
end;

Но сдесь один критический для меня недостаток - изначальная привязка к RowCount