В чем проблема? Проверка корректной заполненности полей (таблица данных (StringGrid) о пользователях, имеется кнопка добавить пользователя)

[KenesK]

Добрый день. Уже какой день не могу доделать задачку. У меня есть таблица данных (StringGrid) о пользователях, имеется кнопка добавить пользователя, открывается новая форма. В этой форме есть Edit ы, куда вводим данные о добавляемых пользователях. Среди этих полей имеются поля для обязательного ввода. При нажатии кнопки готово, если среди обязательных полей имеются пустые, то должно выскакивать сообщение об ошибке, пример:Поле Имя не может быть пустым. Для ввода в одном из полей необходимо что бы длинна символов этого поля была равна 12 цифрам.Иначе так же сообщение об ошибке выскакивать должно. Так же строки дата и первые 6 цифр поля ИИН должны совпадать, пример:если дата 28.07.2016 то поле ИИН должно начинаться так 160728****** иначе должно выскакивать сообщение об ошибке. Все эти сообщения об оштбках выходят по одиночку и работают. Проблема вот в чем: я не могу объединить все эти сообщения об ошибке в 1 целое сообщение. Я пытался, но при правильном вводе всех полей выходит пустое сообщение.

[evg_m]

в начале блока идет сброс ЧЕТЫРЕХ флагов проверок.

  // НЕ ПУСТОЕ
  isFamEmpty := false;
  isImyaEmpty := false;
  isAdresEmpty := false;
  isIINEmpty := false;

В блоке вывода идет проверка ШЕСТИ флагов.

 if not(isFamEmpty and isImyaEmpty and isAdresEmpty and isIINEmpty and
      isIINnotright and isDATAnotIIN) then

значить ДВА из них имеют НЕПРЕДСКАЗУЕМОЕ(не то что ты ожидаешь) значение и ПОЗВОЛЯЮТ сделать то что происходит.

Вообще-то умный компилятор Delphi наверняка ПРЕДУПРЕЖДАЛ (Warining) об этом.

[Warning] Unit1.pas(108): Variable 'DiskIndex' might not have been initialized

Некая переменная имеет неопределенное значение.

[KenesK]

Спасибо большое, остался еще один вопрос, мне нужно экспортировать все данные в формате МТ100 и МТ102(Message Type). Как это делается понятия не имею, кто что знает подскажите.