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;