Validando campos em tabelas

//No evento OnValidate digite:

procedure TForm1.Table1CompanyValidate(Sender: TField);
begin
if Sender.AsString='' then
Raise EDatabaseError.Create('Preencha os campos Obrigatorios');
end;