OK, man könnte noch diese Zeile anhängen
if data.TAukopfAUKVERSNR.Value <> s then data.TAukopfAUKVERSNR.Value := '';
Delphi-Quellcode:
procedure SetNewMask(Feld: KeineAhnungWas; Mask: String);
var s: String;
begin
s := Feld.Value;
Feld.Value := '';
Feld.EditMask := '000/00/000000000;1;_';
Feld.Value := s;
if Feld.Value <> s then Feld.Value := '';
end;
SetNewMask(data.TAukopfAUKVERSNR, '000/00/000000000;1;_');
Ansonsten müßte man "nur" erstmal rausfinden, über welche Funktion wirklich verglichen wird.