[dec]

Hola,

¿Y esto no valdría igual? Pregunto.

Código Delphi [-]
var
  i: integer;
begin
  with TStringList.Create do
  try
    LoadFromFile(abrirfile.FileName);
    STgrid.RowCount := Count;
    for i:= 0 to Count-1  do
      STgrid.Rows[i].CommaText := Strings[i];
  finally
    Free;
  end;