Restar dos fechas

[Alejandrina]

Hola,
No se que estoy haciendo mal eh seguido las instrucciones y me esta mostrando un error EOleError....'Variant does not reference an automation object'... el codigo que tengo es el siguiente:

Código Delphi [-]
procedure TFrmFinalizacionMontaje.RBFirmaMontadorClick(Sender: TObject);
var diferencia:TDateTime;
begin
  if (userw<>'J704') or (userw<>'M800') or (userw<>'P705')or (userw<>'SYSDBA') then
    begin
      Dmsip2.TblFormatoFinalizacion.Edit;
      Dmsip2.TblFormatoFinalizacion['FIRMAMONTAJES']:='X';
      Dmsip2.TblFormatoFinalizacion['USUARIOMONTAJES']:=userw;
      DBEUsuarioMontajes.Text:=userw;
      DBEFechaMontador.Text:=DateTimeToStr(now);
      EHoraMontajes.Text:=copy(DBEFechaMontador.Text,12,13);
      Dmsip2.TblFormatoFinalizacion.Post;
      diferencia:=DmSip2.TblFormatoFinalizacion['FECHAMONTAJES'].AsDateTime - 
       DmSip2.TblFormatoFinalizacion['HORAINICIO'].AsDateTime;
    end

Ayuda!