Builder C++ 6 i Paradox7

Czesc, mam problem z funkcja dodajaca dane do tabeli w Paradox7, program pisze w BC++6, wsk jest tabela obiektow o wielkosci "rozmiar";
podczas dodawania pojawia mi sie blad "Type mismatch", samego sql'a sprawdzilem dajac mu od razu wartosci zamiast parametrow i dzialalo (wooollllnnnoooo ;) ale dzialalo), jednak w chwili gdy w ktorym kolwiek miejcu podaje wartosc przez parametr pojawia sie blad; probowalem przekazywac to jako stringi (jak ponizej) lub od razu ( AsInteger itp ) ale nic nie pomoglo :/
bede bardzo wdzieczny za jakies wskazowki co z tym zrobic zeby dzialalo!!

        TDateTime data;
        Query1->Close();
        String query = "insert into Pletyzmograf (Data, Czas, Pletyzmograf1,"
                " Pletyzmograf2,"
                " Pletyzmograf3, Pletyzmograf4, Temperatura1, Temperatura2,"
                " Temperatura3, Temperatura4, AkcelerometrX, AkcelerometrY,"
                " Id_pacjet) values (:data, :czas, :plet1, :plet2, :plet3, :plet4,"
                " :temp1, :temp2, :temp3, :temp4, :ackX, :ackY, :id_p)";

       Query1->SQL->Clear();
       Query1->SQL->Add(query);
       Query1->Prepare();
        for(int i = 0; i < rozmiar; i++){

        Query1->ParamByName("data")->AsString = DateToStr(data.CurrentDate());
        Query1->ParamByName("czas")->AsString = TimeToStr(data.CurrentTime());
        Query1->ParamByName("plet1")->AsString = IntToStr(wsk[i].plet_1);
        Query1->ParamByName("plet2")->AsString = IntToStr(wsk[i].plet_2);
        Query1->ParamByName("plet3")->AsString = IntToStr(wsk[i].plet_3);
        Query1->ParamByName("plet4")->AsString = IntToStr(wsk[i].plet_4);
        Query1->ParamByName("temp1")->AsString = FloatToStr(wsk[i].temp_1);
        Query1->ParamByName("temp2")->AsString = FloatToStr(wsk[i].temp_2);
        Query1->ParamByName("temp3")->AsString = FloatToStr(wsk[i].temp_3);
        Query1->ParamByName("temp4")->AsString = FloatToStr(wsk[i].temp_4);
        Query1->ParamByName("ackX")->AsString = IntToStr(wsk[i].akc_1);
        Query1->ParamByName("ackY")->AsString = IntToStr(wsk[i].akc_2);
        Query1->ParamByName("id_p")->AsString = IntToStr(id_pacjeta);

                Query1->ExecSQL();
        }
        Query1->Close();