TForm1 *Form1;
AnsiString sFileName;
AnsiString FileName = "C:\\lgw\\*.txt";
TSearchRec sr;
AnsiString strlst[1000];
int i;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Message->Clear(); // 메모장 Clear
    if(FindFirst(FileName, faArchive, sr) == 0) //리스트박스 목록 불러오기
    {
        do{
        ListBox1->Items->Add(sr.Name);
        strlst[i] = sr.Name;
        i++;
        } while(FindNext(sr) == 0);
    }
    FindClose(sr);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
    sFileName = FormatDateTime("YYYY-MM-DD AM/PM HH-NN_SS", Now()); //날짜+시간 파일명
    sFileName += "분.txt";
    Message->Lines->SaveToFile("c:\\lgw\\" + sFileName); //지정된 디렉토리에 저장
    Message->Clear();
    ListBox1->Clear();
    if(FindFirst(FileName, faArchive, sr) == 0) //리스트박스 새로고침
    {
        do{
        ListBox1->Items->Add(sr.Name);
        strlst[i] = sr.Name; //혹시 몰라서 행열만들어서 담아두었어요;;
        i++;
        } while(FindNext(sr) == 0);
    }
    FindClose(sr);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnLoadClick(TObject *Sender)
{
    // 이부분에 리스트박스에서 선택한 파일명의 txt파일을 메모장으로 불러오고 싶은데
       Selected나 기타 인터넷에서 본 소스들을 응용해봤는데 안되네요 ㅠㅠ
       선택되어졌다는 조건을 어떻게 걸어야할지도 모르겠어요 ㅠㅠ 도와주세요 ㅠㅠ
}
//---------------------------------------------------------------------------
너무 초보라 검색이나 책을 많이 활용하는데 소스를 응용하는데 한계가 있네요 ㅠㅠ
고수분들 정확한 것 아니어두 힌트라도좀 남겨주시면 정말 감사할꺼에여^^;