StringGrid : problème de multisélection

bonjour
pour récupérer le texte d'une cellule sélectionnée pas de problème avec StringGrid1.Cells[stringgrid1.col,stringgrid1.row], mais comment faire pour récupérer le contenu des cellules dans le cas de multi sélection ?

J'ai trouvé...

Code:

---

1 2 3 4 5 6 7 8 9

var x, y: Integer; begin Label1.Caption := ''; for y := StringGrid1.Selection.Top to StringGrid1.Selection.Bottom do for x := StringGrid1.Selection.Left to StringGrid1.Selection.Right do Label1.Caption := Label1.Caption + StringGrid1.Cells[x,y]+' '; end;

---