Classificar por data

E aí galera!
Peguei esta função na internet que classifica qualquer coluna de um stringrid em ordem alfabética. Eu necessito classificar por data. Será que não dá para adaptá-la?

Function clasifica(J:tStringgrid):boolean;
var
sl :tstringlist;
p,na, x:integer;
linha:string;
Begin
SL := TSTRINGLIST.Create;
sl.Clear;
na := j.Col;
FOR X := 1 TO j.RowCount-1 DO
BEGIN
if trim(j.Rows[x].text)<>´´ then SL.Append(j.Cells[na,x]+´//limite//´+j.Rows[X].Text);
END;
SL.Sort;
FOR X := 1 TO j.RowCount-1 DO
BEGIN
j.Rows[X].Clear;
END;
FOR X := 0 TO sl.Count-1 DO
BEGIN
linha := SL.Strings[x];
p := pos(´//limite//´,linha)+10;
linha := copy(linha,p,length(linha));
j.Rows[X+1].Text := linha;
END;
SL.Destroy;
end;