[dr. F.I.N.]

Не очень хорошо в таком виде обрабатывать исключение. Метод прервется и динамически созданный TStringList не будет уничтожен - привет утечка.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var L: TStringList;
begin
 L := TStringList.Create;
 try
   L.Text := Memo1.Text;
   try
     L.CustomSort(MySort);
   except
    ... обработка исключения ...
   end;
   Memo2.Text := L.Text;
 finally
   L.Free;
 end;
end;