Hola
Y porque no usar directamente la propiedad Cells del StringGrid.
Código Delphi
[-]
procedure TForm1.actualizaGrid(Texto: string; Registros, Columna: integer; grid: TStringGrid);
var
Renglon: Integer;
begin
for Renglon := 1 to Registros do
begin
grid.Cells[Columna, Renglon] := Texto;
end;
end;
Saludos