Делфи, перемешать строки stringgrid

[Tony.]

Добрый день, задача состоит в следующем необходимо при нажатии на кнопку перемешать строки в stringgrid

[Serge_Bliznykov]

так устроит?

procedure TForm2.Button2Click(Sender: TObject);
var ts : TStringList;
  i, k, N : integer;
begin
  Randomize;

  ts := TStringList.Create;
  {  Для (i от 1 до n-1)
      Переставить i-ю строку со случайной строкой от i-й до n-й }
  N := StringGrid1.RowCount;
  for i := 0 to N - 1 do begin
    k:= Random(N-i)+i;
    if k<>i then begin
       ts.Text  := StringGrid1.Rows[i].Text;
       StringGrid1.Rows[i] := StringGrid1.Rows[k];
       StringGrid1.Rows[k] := ts
   end;
  end;
  FreeAndNil(ts);
end;

[Tony.]

Да устроит, спасибо!