몇 번 글을 올렸었는데 여기다가 글을 올리고나면 자체적으로 하나씩 해결을 해나가고 있네요.. ㅎㅎ
(질문 글들은 자삭하고 있어요..)

    Form1->Query1->SQL->Clear();

    if (Form1->newcommend == true ) {
        Form1->Query1->SQL->Add("INSERT INTO NewType (Reserve, ReserveD, PartyD, PartyName, Pro, Sex, Father, FatherP, Mother, MotherP, Address1, Address2, Connector, GoodType, Officer, RCash, Memo) ");
        Form1->Query1->SQL->Add("VALUES (:Reserve, :ReserveD, :PartyD, :PartyName, :Pro, :Sex, :Father, :FatherP, :Mother, :MotherP, :Address1, :Address2, :Connector, :GoodType, :Officer, :RCash, :Memo) ");

        Form1->Query1->Params->Items[0]->AsString = Edit1->Text;  // 예약번호
        Form1->Query1->Params->Items[1]->AsString = Edit2->Text;  // 예약일
        Form1->Query1->Params->Items[2]->AsString = Edit3->Text;  // 행사일
        Form1->Query1->Params->Items[3]->AsString = Edit6->Text;  // 행사명
        Form1->Query1->Params->Items[4]->AsString = Edit7->Text;  // 주인공
        Form1->Query1->Params->Items[5]->AsInteger = SexRadio->ItemIndex;  // 성별
        Form1->Query1->Params->Items[6]->AsString = Edit8->Text;  // 아빠
        Form1->Query1->Params->Items[7]->AsString = Edit13->Text;  // 아빠전화
        Form1->Query1->Params->Items[8]->AsString = Edit9->Text;  // 엄마
        Form1->Query1->Params->Items[9]->AsString = Edit14->Text;  // 엄마전화
        Form1->Query1->Params->Items[10]->AsString = Edit10->Text;  // 주소1
        Form1->Query1->Params->Items[11]->AsString = Edit11->Text;  // 주소2
        Form1->Query1->Params->Items[12]->AsString = Edit12->Text;  // 예약자
        Form1->Query1->Params->Items[13]->AsInteger = StrToInt(Edit15->Text);  // 상품타입
        Form1->Query1->Params->Items[14]->AsString = Edit5->Text;  // 담당실장
        Form1->Query1->Params->Items[15]->AsInteger = StrToInt(Edit16->Text);  // 예약금
        Form1->Query1->Params->Items[16]->AsMemo = Memo1->Lines->Text;  // 메모
        Form1->Query1->SQL->Text;
    }
    else {
        Form1->Query1->SQL->Add("UPDATE NewType SET ReserveD = :ReserveD, PartyD = :PartyD, PartyName = :PartyName, Pro = :Pro, Sex = :Sex, Father = :Father, FatherP = :FatherP, Mother = :Mother, MotherP = :MotherP, Address1 = :Address1, Address2 = :Address2, Connector = :Connector, GoodType = :GoodType, Officer = :Officer, RCash = :RCash, Memo = :Memo ");
        Form1->Query1->SQL->Add("Where Reserve = :Reserv");

        Form1->Query1->Params->Items[0]->AsString = Edit2->Text;  // 예약일
        Form1->Query1->Params->Items[1]->AsString = Edit3->Text;  // 행사일
        Form1->Query1->Params->Items[2]->AsString = Edit6->Text;  // 행사명
        Form1->Query1->Params->Items[3]->AsString = Edit7->Text;  // 주인공
        Form1->Query1->Params->Items[4]->AsInteger = SexRadio->ItemIndex;  // 성별
        Form1->Query1->Params->Items[5]->AsString = Edit8->Text;  // 아빠
        Form1->Query1->Params->Items[6]->AsString = Edit13->Text;  // 아빠전화
        Form1->Query1->Params->Items[7]->AsString = Edit9->Text;  // 엄마
        Form1->Query1->Params->Items[8]->AsString = Edit14->Text;  // 엄마전화
        Form1->Query1->Params->Items[9]->AsString = Edit10->Text;  // 주소1
        Form1->Query1->Params->Items[10]->AsString = Edit11->Text;  // 주소2
        Form1->Query1->Params->Items[11]->AsString = Edit12->Text;  // 예약자
        Form1->Query1->Params->Items[12]->AsInteger = StrToInt(Edit15->Text);  // 상품타입
        Form1->Query1->Params->Items[13]->AsString = Edit5->Text;  // 담당실장
        Form1->Query1->Params->Items[14]->AsInteger = StrToInt(Edit16->Text);  // 예약금
        Form1->Query1->Params->Items[15]->AsMemo = Memo1->Lines->Text;  // 메모
        Form1->Query1->Params->Items[16]->AsString = Edit1->Text;  // 예약번호

        Form1->Query1->SQL->Text;

    }
    Form1->Query1->Active = true;

어디서 문제가 있는 것인지 답변 좀 부탁드리겠습니다.

동생놈이 스튜디오를 하는데 예약관련 프로그램 좀 만들어달라고 해서 오래 전에 해봤던 경험으로 프로그램을 만들어보고 있는데 여간 힘든게 아니네요..

좋은 조언 부탁드립니다.

ps. 괄호 하나 뺐습니다. 에러메시지는 동일하네요.. Type mismatch in expression

틀린게 없는거 같은데... 휴~ 답답합니다.