Leer y ordenar fichero en delphi

[izubal]

Hola,

Tengo una duda.
Cargo en el TStringList todas las líneas del fichero.
pero el método sort no tiene como pasarle los parámetros.

sl := TStringList.Create;
try
Reset(ftIN);
Rewrite(ftOUT);
while (not EOF(ftIN)) and (Error<> 1) do
begin
Readln(ftIN, S);
sl.Add(S);
...

pero como le digo que quiero ordenarlo en base al campo2 y 8??
con el método xprocs.strTokenToStrings(S,'|',s2); puedo cargar en otro TStringList (s2) todos los campos que tiene pero no se como seguir.

un saludo.