[sdiaz1983]

BUEN DIA A TODOS

Código Delphi [-]
procedure TFrmVehiculos.BtEditarClick(Sender: TObject);
begin
    QryVehiculo.Active:=True;
    TblVehiculo.Active:=True;
    TblCliente2.Active:=True;
    EdtFecha.Text:=DateToStr(Date);
    EdtHora.Text:=TimeToStr(Time);
    QryCliente2.SQL.Text:='select * from cliente where Cedula=:P1';
    Qrycliente2.Params[0].AsString:=EdtCliente.Text;
    QryCliente2.Active:=True;
      if(QryCliente2.RecordCount>0)then
      Begin
      QryVehiculo.Edit;
      QryVehiculo.FieldByName('Placa').Value:=EdtPlaca.Text;
      QryVehiculo.FieldByName('Fecha').Value:=EdtFecha.Text;
      QryVehiculo.FieldByName('Hora').Value:=EdtHora.Text;
      QryVehiculo.FieldByName('Cedula_cliente').Value:=EdtCliente.Text;
      QryVehiculo.FieldByName('Marca').Value:=EdtMarca.Text;
      QryVehiculo.FieldByName('Modelo').Value:=EdtModelo.Text;
      QryVehiculo.FieldByName('Clase').Value:=EdtClase.Text;
      QryVehiculo.FieldByName('Color').Value:=EdtColor.Text;
      QryVehiculo.Post;
      MessageDlg('DATOS DEL VEHICULO ACTUALIZADOS',mtInformation,[mbOk],0);
      LblVehiculo.Visible:=False;
      LblPlaca.Visible:=False;
      EdtPlaca.Visible:=False;
      LblCliente.Visible:=False;
      EdtCliente.Visible:=False;
      Lblnombre.Visible:=False;
      EdtNombre.Visible:=False;
      LblApellido.Visible:=False;
      EdtApellido.Visible:=False;
      LblFecha.Visible:=False;
      EdtFecha.Visible:=False;
      LblFecha.Visible:=False;
      EdtFecha.Visible:=False;
      LblHora.Visible:=False;
      EdtHora.Visible:=False;
      LblMarca.Visible:=False;
      EdtMarca.Visible:=False;
      LblModelo.Visible:=False;
      EdtModelo.Visible:=False;
      LblClase.Visible:=False;
      EdtClase.Visible:=False;
      LblColor.Visible:=False;
      EdtColor.Visible:=False;
      BtEditar.Visible:=False;
      BtBorrar.Visible:=False;
      QryVehiculo.Active:=False;
      QryCliente2.Active:=False;
      TblCliente2.Active:=False;
      TblVehiculo.Active:=False
      End
      else
      MessageDlg('CLIENTE NO EXISTE, DEBE CREARLO',mtError,[mbOk],0);
end;

En el siguiente codigo quiero actualizar un dato de un vehiculo en este caso pero cuando oprimo el boton, me aparece un mensaje en el que me dice "QryVehiculo: no se puede editar un dataset de solo lectura", queria si por favor me pueden ayudar y me dicen que tengo mal en el codigo que tengo que corregi porque he mirado por todos lados pero nada.

Mil Gracias por su ayuda