Здесь вычисляем значения формул на разных наборах переменных, участвующих в этой самой формуле. И потом все результаты заносим в stringgrid

//начинаем вычисление значения формулы на соответстующих наборах переменных
for k:=1 to stringgrid1.RowCount-1 do
begin
podstavim:=workstr;
for i:=1 to length(peremennye) do
for j:=1 to length(podstavim) do
begin
if podstavim[j]=peremennye[i] then podstavim[j]:=stringgrid1.cells[i-1,k][1];
end;
stringgrid1.Cells[length(peremennye),k]:=istinnost(podstavim);
end;
end;
end;