Und formatier mal deinen Code ein wenig. Damit hilfst du nicht nur dir, sondern auch anderen, die den mal lesen müssen
Habe leider keine Ahnung mehr, was ich mir da zusammen
programmiert habe!
q.e.d.
Evtl. hilft auch schon zu testen, ob der Feldwert nicht null ist:
Delphi-Quellcode:
if not CRDBGrid1.DataSource.DataSet.FieldByName('Zuordnung').IsNull then
begin
//[...]
end