Sletning af Field i all Records

Function EkrNulstillingDB(Hoved,Ekr:string):Boolean;
  Var
    TQ : TADOQuery;
    FilNavn : String;


  Begin
    // Findes database?
    FilNavn:=ExtractFilePath(Application.ExeName);
    While Filnavn[Length(FilNavn)]='\' Do FilNavn:=Copy(FilNavn,1,Length(FilNavn)-1);
    FilNavn:=StringReplace(GemHesselholtAccess,'$programdir',FilNavn,[rfIgnoreCase,rfReplaceAll]);

    If FileExists(FilNavn) Then Begin
      TQ:=TADOQuery.Create(Nil);
      Try
        TQ.ConnectionString:=ConnectIt+FilNavn;
        // Put i record

        TQ.SQL.Clear;
        TQ.SQL.Add('UPDATE Kartotek');
        TQ.SQL.Add('SET Ekr=:Ekr');
        TQ.SQL.Add('WHERE Hoved = :Hoved');

        TQ.Parameters.ParamByName('Ekr').Value    := '-';
        TQ.Parameters.ParamByName('Hoved').Value    := Hoved;

  //      TQ.ExecSQL;

        EkrNulstillingDB:=(TQ.ExecSQL <> 0); //=0 ingen update

        (*
          TQ.SQL.Clear;
          TQ.SQL.Add('UPDATE INTO Kartotek (Notat) VALUES(');
          TQ.SQL.ADD(''''+Notes+''',');
          TQ.ExecSQL;
          *)

      Finally
        TQ.Free;
      End;

    End; // FileExists

  End;

Jeg har følgende Delphi kode
Den skal tilføje i alle Fields med navn  Ekr i Access databasen
tegn "-"
Der er 1200 records i Fieldnavn Ekr