Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

в общем такая проблема:
делаю проверку на заполнение полей, и если в поле нет цифр, то выдаётся сообщение что поле не заполнено, если все поля заполнены то выдаётся соответствующее сообщение что "заполнено", но проблема в то что если все поля пусты и мы нажимаем на кнопку то вылетает ошибка. как избавиться от этого, ну или какие есть ещё варианты на проверку заполнения полей?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin


  if not (Edit2.Text[1] in ['0'..'9']) then
  begin
    ShowMessage('Не заполнено поле 2');
    Edit2.SetFocus;

      if not (Edit1.Text[1] in ['0'..'9']) then
  begin
    ShowMessage('Не заполнено поле 1');
    Edit1.SetFocus;

      if not (Edit3.Text[1] in ['0'..'9']) then
  begin
    ShowMessage('Не заполнено поле 3');
    Edit3.SetFocus;

  end;
  end;

  end

  else
  begin
  ShowMessage('заполнено');
  end

end;