[Страдалецъ]

Код:

 If (e1 <> nil) and (e2 <> Nil) 
          Then S := S + e1.Text + ':' + e2.Text + ';';

Здесь идет только проверка на существование пары компонентов с нужным именем, а вот есть ли в них текст вы тоже должны проверять. Как это делать я уже показывал раньше.