procedure SortByUserName(TS: TStrings);
function CompareNom(TS: TStrings; const i1, i2: Integer): Integer;
begin
Result:= CompareText(Copy(TS[i1],4,MaxInt), Copy(TS[i2],4,MaxInt));
end;
var
SL: TStringList;
begin
SL:= TStringList.Create;
try
SL.Assign(TS);
SL.CustomSort(@CompareNom);
TS.Assign(SL);
finally
SL.Free;
end;
end;