Не совсем понял о чём речь, но попробую
Код:
// проверяется наличие введённого текста:
if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
ShowMessage('Введите текст в каждый Edit') // если что-то не введено выводится сообщение
else
WriteTest; // если всё введено, то вызывается процедура WriteTest
end; это нужно?