답답한 마음에 다시 글을 올립니다...

텍스트 파일을 읽어서 DB에 저장할라고 하는데 잘 안되네요....
어찌 해야 하는지...  QUERY를 사용 하고 있거든요..
insert를 했는데 잘 안되네요...
텍스트의 내용을 차례로 for문을 써서 쭉 넣으려고 하는데요...

참고로 소는는 다음과 같습니다...
고수님들의 조언 바랍니다.....^^*

void __fastcall TForm1::STARTClick(TObject *Sender)
{
        int i;
        AnsiString str;
        TStringList *s = new TStringList;
        s->LoadFromFile("c:Test.txt");

        for(int i=0; i<s->Count; i++)
        {
        str = s->Strings[i];      //한줄씩 읽기..
        str = str.SubString(5,8);

        Query1 ->Close();
        Query1 ->SQL ->Clear();
        Query1 ->SQL ->Add("Insert into dbtest(cus)");
        Query1 ->SQL ->Add("Values ('00')");
        Query1->ParamByName("00")->AsString = str;


        }

        try
        {
                Query1 ->Open();
        }
        catch(EDBEngineError* dbError)
        {
                for(int i = 0; i<dbError->ErrorCount; i++)
                {
                        MessageBox(0,dbError[i].Message.c_str(), "SQL   
                            Error",MB_OK);
                }
        }
}