komponent stringgrid z sortowaniem

Znacie moze jakis komponent stringgrida ktory automatycznie sortuje kolumny tak jak TAdvStringGrid ?? a moze ktos ma ten komponent ale pelna wersje (zeby nie bylo tego napisu u samego dolu tabelki)

Lub macie kod zrodlowy do posortowania stringgrida ?? to zapodajcie

z gory dzieki!!

Google się popsuły ? :P

http://www.delphiforfun.org/Programs/Delphi_Techniques/GridSort.htm
http://www.swissdelphicenter.ch/en/showcode.php?id=449

Dzieki niemoglem tego znaleŹĆ w google dzieki

ale mam 1 problem taki ze on mi sortuje ale jak mam 11 kolumn a mam defaultcolwidth = 32 a kolumny potem porozciagam to on mi sortuje tak jakby nie byly porozciagane...

taki mam kod do tego:

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  c,w:integer;
begin
  with stringgrid1 do
  begin
     c:=x div (defaultcolwidth+gridlinewidth);
    if c>fixedcols-1 then sortgrid(stringgrid1,c);
 end;
end;

nie wiem jak to przeksztalcic da sie jakos??

i zeby sortowal jak klikne na fixedcol

dzieki