이런 질문은 이 게시판보다는 빌더 Q/A 게시판에 올리시는게
답변이 더 빠를겁니다.

통일바라기 님이 쓰신 글 :
:
:  아래 김백일님의 친절한 설명으로 라인단위로 읽는
:  것은 성공(?) 했습니다.
:  그런데... 라인에서 특정 스트링을 검색하는 것은
:  실패...
:  
:  그래서 다시 문의 드립니다.
:
: //-------------------------------------------
: #include <vcl.h>
: #pragma hdrstop
: #include <iostream.h>
:
: #include "Unit1.h"
: //-------------------------------------------
: #pragma package(smart_init)
: #pragma resource "*.dfm"
: TForm1 *Form1;
: //--------------------------------------------
: __fastcall TForm1::TForm1(TComponent* Owner)
:         : TForm(Owner)
: {
:    Label1->Caption = AnsiString("현재시간 : ")
:        + TimeToStr(Time());

그냥
Label1->Caption = "현재시간 : " + TimeToStr(Time());
으로 하셔도 됩니다.
AnsiString::operator+()가 오버로딩되어 있기 때문입니다.

그리고 TForm1의 생성자보다는 OnCreate나 OnShow 이벤트에서 실행하세요.
Timer1의 OnTimer 이벤트에서 설정하면 Interval마다 현재시간이 표시되는 건 아실테죠?
보통, 폼의 생성자에서는 속성 설정이 아니라,
TForm1에 선언한 멤버 변수의 값을 설정하는 코드를 넣습니다.

: }
: //---------------------------------------------
: /* 5분마다 list.txt 파일을 열어서 list_new.txt 파
: 일을 생성하는 모듈 ListBox1 및 ListBox2에 출력하는
: 이유는 이것 저것 해보느라고 쓴것이고 큰 의미는 없습
: 니다. */
:
: void __fastcall TForm1::Timer1Timer(TObject *Sender)
: {
:   Timer1->Interval = 300000;

TTimer::Interval은 OnTimer 이벤트에서 설정하는 게 아닙니다.
그냥 오브젝트 인스펙터에서 설정하거나,
Form1의 OnCreate나 OnShow 이벤트에서 설정하세요.

:   int i;
:   TStringList *MyList = new TStringList();
:   MyList->LoadFromFile("list.txt");

여기서 에러가 있을 가능성이 있습니다.
list.txt가 빈 파일이든가, 존재하지 않거나, 경로(이름)이 틀리지는 않는지
검사해보세요.

:     ListBox1->Items->Clear();
:     for (i=0; i < MyList->Count; i++) {
:       ListBox1->Items->Add(MyList->Strings[i]);
:       ListBox2->Items->Add(MyList->Strings[i]);
:     }
:   MyList->SaveToFile("list_new.txt");
:   delete MyList;
: }
: //------------------------------------------------
: /* 문제는 요놈인데...
: 아래 "// ListBox1->Items->Add(MyList->Strings[j]);"
: 인데 이걸 주석으로 처리하지 않고 실행시키면 컴파일/링크
: 는 정상적으로 되는데 실행하여 버튼을 클릭하면, 에러 메
: 시지가 발생합니다(추가로 MyList를 TempList라는 이름으
: 로 바꿔도 안되네요..)
: Project Porject1.ext raised exception class
: EStringListError with message 'List index out of
: bounds(-16709743)'. Process stopped. Use Step or
: Run to continue.
: 계속 진행하면, "List index out of bounds(-16709743)"
: 라는 메시지가 뜹니다
: 왜, 에러 메시지가 뜨는지 궁굼합니다.
:
: 또한, 주석처리를 하고 실행하면 ListBox2에는 "SYS_FIRE"
: 라는 스트링을 가진 라인이 출력되어야 할것 같은데 이것도
: 안됩니다. */
:
: void __fastcall TForm1::Button1Click(TObject *Sender)
: {
:   int j;
:   TStringList *MyList = new TStringList();
:   MyList->LoadFromFile("list.txt");
: //  ListBox1->Items->Add(MyList->Strings[j]);
:     ListBox2->Items->Clear();
:     for (j=0; j < MyList->Count; j++) // 이 라인이 필요없습니다!
:       if (MyList->Find("SYS_FIRE",j)) // 여기서의 j는 입력이 아니라 출력용 변수입니다.
                                        // 그 라인을 발견한 위치를 리턴합니다.

TStringList::Find()는 소트된 경우에만 사용해야 합니다.
처음부터 TStringList::Sorted = true 로 하거나,
TStringList::Sorted = false인 경우는 TStringList::Sort()한 후 실행해야 합니다.
아닌 경우는 TStringList::IndexOf()를 사용해야 합니다.
그리고 이들 함수는 한 라인 전체를 대상으로 검색합니다.
즉, 루프에서 돌리는 게 아닙니다! 한번만 실행하면 됩니다.

각 라인에서 특정 단어를 검색하려면
루프에서 AnsiString::Pos()를 사용하세요.

for (j = 0; j < MyList->Count; j++) {
  if (MyList->Strings[j].Pos("SYS_FIRE")) break;
}

:           ListBox2->Items->Add(MyList->Strings[j]);
:   delete MyList;
: }
: