Проверям введенную строку на правильность. Ведь нельзя же работать с некорректными формулами

//проверка строки на правильность
if formula.Text='' then begin beep; ShowMessage('Введите формулу!'); exit; end;
workstr:=lowercase(formula.Text);
i:=proverka(workstr);
if i<> 0 then
begin
if i<>255 then begin beep; ShowMessage('Формула введена неверно!'); formula.SetFocus; formula.SelStart := i; end
else ShowMessage('Количество открывающих и закрывающих скобок не совпадает!');
exit;
end;
for j:=1 to length(workstr) do
if (workstr[j] in ['a'..'z']) then begin i:=255; break; end;
if i<>255 then
begin
stringgrid1.ColCount:=1;
stringgrid1.RowCount:=2;
stringgrid1.Cells[0,0]:='Значение';
stringgrid1.Cells[0,1]:=istinnost(workstr);
end