RowNum :=0;
while StringGrid1.Cells[1, RowNum] <> ' ' do
begin
RowNum:=RowNum+1;
StringGrid1.Cells[1, RowNum]:=text;
end;

Спасибо, пример понятен