Сортировка Стрингрида за полями

[fatalisPM]

Нужно отсортировать TStringGrid за елементами 3-ого столбца

var i,j:integer;
t:TStrings;
begin
for i:=1 to S.RowCount-1
do
for j:=1 to S.RowCount-1
do
if(S.Cells[3,i]<S.Cells[3,j])
then
begin
t:=s.Rows[i];
S.Rows[i]:=S.Rows[j];
S.Rows[j]:=t;
end;

написал что-то такое,но сортирует,увы,неправильно,а точнее выдает несколько одинаковых строк СтрингГрида

[Stilet]

http://delphiworld.narod.ru/base/sg_col_sort.html
http://delphiworld.narod.ru/base/sl_custom_sort.html
http://delphiworld.narod.ru/base/sg_sort.html
http://delphiworld.narod.ru/base/sg_sort2.html

Выбирай.

[fatalisPM]

Разобрался:вместо t:=Rows[i],следует писать
t.Assign(TStringlist(S.Rows[i]));