Функция строит полученную таблицу истинности. И при желании выводит имя автора.

//построение таблицы истинности
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
workstr, peremennye, podstavim:shortstring;
k,t:cardinal;
begin
//Показываем автора
if ((formula.Text='Автор') or (formula.Text='автор')) then
begin
ShowMessage('Автор: ФИО., группа 2225, май 2008 г.');
exit;
end;