SoloCodigo

Hola como yo podria insertar una documento en la tabla hago esto y solo se inserta la direccion:

WideString Direccion;
 OpenDialog->Execute();
 Direccion = OpenDialog->FileName;
   AnsiString Insert = "";
   QInsertar->SQL->Clear();
   Insert = "INSERT INTO registros (descripcion) VALUES ";
   Insert = Insert+"(:pdescripcion)";
   QInsertar->SQL->Text = Insert;
   QInsertar->Parameters->ParamByName("pdescripcion")->Value = Direccion;

Esto es lo que yo hise espero que te sirva. saludos

AnsiString A ;
  AnsiString B ;
  AnsiString C ;                         
  AnsiString Usuario ="";
  Qusuariocontrasena->SQL->Clear();     
  Usuario = "SELECT usuario , contrasena , cargo  FROM usuario   WHERE usuario.usuario = :pusuario and usuario.contrasena = :pcontrasena;";
  Qusuariocontrasena->SQL->Text = Usuario;
  Qusuariocontrasena->Parameters->ParamByName("pusuario")->Value = Edit5->Text;
  Qusuariocontrasena->Parameters->ParamByName("pcontrasena")->Value = Edit4->Text;
  Qusuariocontrasena->Open();
  A = Qusuariocontrasena->FieldByName("usuario")->AsString;
  B = Qusuariocontrasena->FieldByName("contrasena")->AsString;
  C = Qusuariocontrasena->FieldByName("cargo")->AsString;
   if(Edit4->Text != "" && Edit5->Text != "")
  {
          ShowMessage("Conexion correcta.");
  }