FAIL if (UniMainModule.d6.FieldByName('archiv').asstring <> '') OR
UniMainModule.d6.FieldByName('archiv').IsNull = false) then begin
Feld_leer:=false;
Damit dieser Code auch wirklich dazu führt, zu schreiben wenn keine Daten da sind, sollte man vorher
Feld_leer := True
setzen.