[JoAnCa]

Lo resolvi de esta manera:

Código Delphi [-]
      
      valores:=TStringList.Create;
      MiFicheroIni.ReadSectionValues('Destinos', valores);
      for j:=1 to Valores.Count do
      begin
        sgDestinos.Cells[0,j]:=MiFicheroIni.ReadString('Destinos', 'Destino'+IntToStr(j), '');
        sgDestinos.RowCount:=j+1;
      end;