[luisgutierrezb]

Pues creo que puede ser algo asi como:

Código Delphi [-]
procedure Abrir(Archivo: String; Grid: TStringGrid);
var
  i: integer;
begin
  with TStringList.Create do
  try
    LoadFromFile(Archivo);
    Grid.RowCount := Count;
    for i:= 0 to Count - 1 do
      Grid.Rows[i].CommaText := Strings[i];
  finally
    Free;
  end;
end;

lo hice de memoria asi que puede fallar algo, pero la idea espero que si se comprenda