안녕하세요 ?
sort 기능을 여러 차례 검색 하다가 제일 심플하면서 괜찮은 답변 소스를 보았습니다. ( 장성호님 글 )

int __fastcall ListSortIntegerProc(TStringList *lst,int r1,int r2)   
{   
    if(StrToInt(lst->Strings[r1]) > StrToInt(lst->Strings[r2]))return 1;
    else if(StrToInt(lst->Strings[r1]) < StrToInt(lst->Strings[r2])) return -1;
    else return 0;
}   
   
void __fastcall TForm1::Button1Click(TObject *Sender)   
{   
    TStringList *lst=new TStringList;
    lst->Assign(Memo1->Lines);
    lst->CustomSort(ListSortIntegerProc);
    Memo1->Lines->Assign(lst);
    delete lst;
}   

헌데.. 정수만 가능합니다. 실수형태를 sort하고 싶은데.. 어떤 부분을  손보면 좋을지요..?
초보가.. 손을 조금 봐주셨으면 정말 감사하겠습니다.
감사합니다.