[Black Raider]

использовать asString и asDate за место Value.
Либо перед присвоением проверять

Код:

if DataModule4.ADOTable1.FieldByName('n').isNull then Edit1.Text:=''
else Edit1.Text:= DataModule4.ADOTable1.FieldByName('n').asString;