Проверка на пустое ли поле Edit

[amator_roma]

У меня есть форма в которой с помощю Edit1,Edit2...вводятся даниэ в DBGrid.

try
Form3.ADOTable1.Append;
Form3.ADOTable1.Edit;
Form3.ADOTable1.FieldByName('Name').Value := Edit1.Text;
Form3.ADOTable1.FieldByName('Adresa').Value := Edit1.Text;
Form3.ADOTable1.FieldByName('Telefon').Value := Edit1.Text;
Form3.ADOTable1.FieldByName('OO').Value := Edit1.Text;
Form3.ADOTable1.Post;
         except
       MessageDlg('Â',
          mtError,[mbOK],0);
       exit;

Вопрос как зделать чтоби после ввода каждого поля происходила проверна что поле не пустое и виводило сообщения на неправильний ввод.

[Sanprof]

if Edit1.Text <> '' then //если не пустой
begin
  try
    Form3.ADOTable1.Append;
    Form3.ADOTable1.Edit;
    Form3.ADOTable1.FieldByName('Name').Value := Edit1.Text;
    Form3.ADOTable1.FieldByName('Adresa').Value := Edit1.Text;
    Form3.ADOTable1.FieldByName('Telefon').Value := Edit1.Text;
    Form3.ADOTable1.FieldByName('OO').Value := Edit1.Text;
    Form3.ADOTable1.Post;
  except
    MessageDlg('Â', mtError,[mbOK],0);
    exit;
  end;
end else 
  ShowMessage('Ошибка ввода: Данные не введены!')

[amator_roma]

А если у меня editов много будет???

к примеру

try
Form3.ADOTable1.Append;
Form3.ADOTable1.Edit;
Form3.ADOTable1.FieldByName('Name').Value := Edit2.Text;
Form3.ADOTable1.FieldByName('Adresa').Value := Edit3.Text;
Form3.ADOTable1.FieldByName('Telefon').Value := Edit4.Text;
Form3.ADOTable1.FieldByName('OO').Value := Edit5.Text;
Form3.ADOTable1.Post;
         except
       MessageDlg('Â',
          mtError,[mbOK],0);
       exit;

[_-Re@l-_]

if Edit1.Text <> '' then //если не пустой

А если я поставлю два пробела?
НУжно так:

if trim(Edit1.Text) <>'' then

[Sanprof]

А если у меня editов много будет???

нутак и проверяйте перед каждым
Form3.ADOTable1.FieldByName('Name') .Value := Edit2.Text;
перед
Form3.ADOTable1.FieldByName('Adresa ').Value := Edit3.Text;
и т.д., если хотябы в одном пусто значит Exit из процедуры и показать сообщение.