Insertar fecha a la base de datos

[borlandpablo]

Buenas, yo me creé una variable global para poderlo utilizar en la pantalla donde tengo que hacer el insert

void __fastcall TXGestionTienda::ComboBox1Change(TObject *Sender)
{
   XDatos->QDistribuidor->Close();
   XDatos->QDistribuidor->SQL->Text = "select * from distribuidor where nombre = '"+ComboBox1->Text+"'";
   XDatos->QDistribuidor->Open();
   codigoD = XDatos->QDistribuidorDistribuidor_id->Value;
   ShowMessage(codigoD);
}

Con eso ya he obtenido el valor del distribuidor_id y cuando hago el insert me sigue diciendo que hay error.