Eliminar Registro

[microbiano]

hola que tal si pones la estructura para la base de datos. pero prueba con esto haber que onda.

Código Delphi [-]
with temp do
 begin
     SQL.Clear;
     Sql.Add('Delete from Suplidor');
     sql.add('where Codigo = :Codigo');
     Sql.Add(' and Fecha = :Fecha and Rnc = :Rnc and Suplidor = :Suplidor and Contacto = :Contacto and Direccion = ireccion and Area = :Area and ');
     Sql.Add(' Telefono = :Telefono and Area1 = :Area1 and Fax = :Fax and Termino = :Termino and Limite = :Limite and Email = :Email ');
     Parameters.ParamByName('Codigo').Value:= EDCodigo.text;
     Parameters.ParamByName('FECHA').Value:= EDfecha.Text;
     Parameters.ParamByName('Rnc').Value:= MERnc.text;
     Parameters.ParamByName('Contacto').Value:= trim(EDContacto.text);
     Parameters.ParamByName('Direccion').Value:= trim(EDDireccion.text);
     Parameters.ParamByName('Area').Value:= trim(CBTelefono.text);
     Parameters.ParamByName('Telefono').Value:= trim(METelefono.text);
     Parameters.ParamByName('Area1').Value:= trim(CBFax.text);
     Parameters.ParamByName('Fax').Value:= trim(MEFax.text);
     Parameters.ParamByName('Termino').Value:= trim(CBterminos.text);
     Parameters.ParamByName('Limite').Value:= trim(EDLimite.text);
     Parameters.ParamByName('Email').Value:= trim(EDEmail.text);
     try
             ExecSQL;
Application.MessageBox('Registro Eliminado con Exito','Registro Eliminado', MB_OK + MB_ICONINFORMATION);
     SuplidorModificar.Enabled := False;
     SuplidorEliminar.Enabled := False;
       except
        on E:EOleException do
         begin
          MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
         end;
       end;
  
     
    End;