Fejl i slet rutine

Hej og sikken noget lort
jeg kan ikke få det lort her til at virke
når jeg compiler programmet så får jeg en fejl i linjerne mellem
//***


//***

fejlen er :

[Error] Slet.pas(173): Operator not applicable to this operand type


hvad gør jeg galt ???????



her er programmet:

procedure TFrmSlet.SpeedButton4Click(Sender: TObject);// Slet
Var
MR : Integer;
I : Integer;
HuskFormTgnNr : String;
HuskFormNr : String;
begin
  MR := messagedlg('Ønsker du at Slette :                          ' + #10+#13 +
  ' '+ #10+#13+
  'Form  ' + DbGrid1.Fields[0].AsString + #10+#13 +
  'Form nr. ' + DbGrid1.Fields[1].AsString + #10+#13 +
  'Sænket. ' +  DbGrid1.Fields[3].AsString + #10+#13
  + 'Oprettet d. ' + DbGrid1.Fields[4].AsString +' ?',mtWarning,[mbyes,mbno],0);
  If MR= MrYes Then
  Begin
  Screen.Cursor := crHourGlass;
  HuskFormTgnNr := DbGrid1.Fields[0].AsString;
  HuskFormNr := DbGrid1.Fields[1].AsString;
  DataModule1.Table1.First;
      For I := 0 To DataModule1.Table1.RecordCount-1 Do
    Begin
//***
      If DataModule1.table1.FieldByName('FormTegningsNr').AsString = HuskFormTgnNr and
          DataModule1.table1.FieldByName('Formnr').AsString = HuskFormNr then
//***
          Begin
          DataModule1.Table1.Delete;
          FormUpdate(Sender);
          StatusBar1.Panels[1].Text := '  Antal poster fundet :  '
          + IntToStr(DataModule1.Query1.recordcount);
          Edit1.Clear;
          Screen.Cursor := crDefault;
          Exit;
        end;
        DataModule1.Table1.Next;
    End;