[san-46]

if a='empty' then t:=t+1;
Такое сравнение даст ошибку, т.к. "а" - тип Real, а сравнивается со строкой.
Надо: if edit1.Text='empty' then t:=t+1;
В строке label2.caption:='Готово!''; убрать в конец строки лишнюю кавычку.