Problema con StringList

[ecfisa]

Hola darkone2k4.

No sé el resultado que deseas lograr, pero si se trata de mostrar los datos separados por ';' encolumnados en el TStringGrid podes hacer:

Código Delphi [-]
...
var
  TS: TStrings;
  i : integer;
begin
  TS := TStringList.Create;
  try
    TS.LoadFromFile('TU_ARCHIVO.CVS');
    for i := 0 to TS.Count-1 do
    begin
      StringGrid1.Rows[i].Delimiter := ';';
      StringGrid1.Rows[i].DelimitedText := TS[i];
    end;
  finally
    TS.Free;
  end;
end;

Saludos.