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;