我不知道你为什么不行
procedure TForm1.Table1Field1Validate(Sender: TField);
begin
if VarIsEmpty(Sender.Value) then
ShowMessage('Empty');
if VarIsNull(Sender.Value) then
ShowMessage('Null');
if VarIsStr(Sender.Value) and (Sender.Value='') then
ShowMessage('Empty String');
end;