fejlmelding

jeg er begynd at få en fejlmeddelse
(invalid variant type)
programmet har ellers kørt unden problemer,med nedenstående kode

procedure TVinForm.FormCreate(Sender: TObject);
var
Total: Real;
begin
RegVin.Init;
  if RegVin.Registered then
    Caption:= \'xxxx\'
  else                      {checker ved opstart om programmet er registreret}
    Caption:= IntToStr(RegVin.DaysLeft) + \'xxxxx\';
begin
MiniTable1.Open;
statusbar1.Panels[1].Text:=inTtoStr(Minitable1.RecordCount) +\' Posteringer\';
begin
  MiniTable1.DisableControls;
  Total := 0;
  try
    MiniTable1.First;
    while not MiniTable1.EOF do
    begin
      Total := Total + DBedit2.Field.Value;
      MiniTable1.Next;
    end;                                {beregner hvor mange flasker ialt}
  finally
      MiniTable1.EnableControls;
  end;
  Statusbar1.Panels[2].Text:=\'Flasker ialt:  \' +  Format(\'%g\' + \' Stk.\', [Total]);
begin
    MiniTable1.DisableControls;
  Total := 0;
  try
    MiniTable1.First;
    while not MiniTable1.EOF do
    begin
      Total := Total + Apris.Field.Value;
      MiniTable1.Next;
    end;
  finally
      MiniTable1.EnableControls;
  end;
  Statusbar1.Panels[3].Text:=\'ialt:  \' + Format(\'%g\' + \' Kr.\', [Total]);
end;
end;
end;
  end;