Сортировка TStringList по моим параметрам

[AiK]

сделай функцию не членом класса и вызов делай так:

Код: Выделить всё

CustomSort(@CompareFlName);

[AiK]

убрать её объявление в классе, а при имплементации - имя класса

[Naeel Maqsudov]

вместо
function TFrm_Main.CompareFlName(nm1, nm2: string): integer;
надо просто
function CompareFlName(nm1, nm2: string): integer;

А объявление "сверху" убрать.