Какой вариант лучше?

procedure CsvToStrGrid(csvname: string; sg: Tstringgrid);
var
  sl, sld : tstringlist;
  i, j : byte;
begin
sl := tstringlist.create();
sl.loadfromfile(csvname);
sg.rowcount := sl.count;
for i := 0 to sl.count-1 do
  begin
  sld := tstringlist.create;
  sld.delimiter := ';' ;
  sld.delimitedtext := sl[i];
  sg.colcount := max(sld.count, sg.colcount); // uses math
  for j := 0 to sld.count-1 do
    sg.Cells[j,i] := sld[j];
  freeandnil(sld);
  end;
sl.free;
end;

procedure LoadCSVFile (FileName: String; separator: char);
 
var f: TextFile;
 
    s1, s2: string;
 
    i, j: integer;
 
begin
 
 i := 0;
 
 AssignFile (f, FileName);
 
 Reset(f);
 
 while not eof(f) do
 
  begin
 
   readln (f, s1);
 
   i := i + 1;
 
   j := 0;
 
   while pos(separator, s1)<>0 do
 
    begin
 
     s2 := copy(s1,1,pos(separator, s1)-1);
 
     j := j + 1;
 
     delete (s1, 1, pos(separator, S1));
 
     StringGrid1.Cells[j-1, i-1] := s2;
 
    end;
 
   if pos (separator, s1)=0 then
 
    begin
 
     j := j + 1;
 
     StringGrid1.Cells[j-1, i-1] := s1;
 
    end;
 
   StringGrid1.ColCount := j;
 
   StringGRid1.RowCount := i+1;
 
  end;
 
 CloseFile(f);
 
end;