прога виснет..

[efkar]

txt:=memo.text; //копия текста из memo
for i:=1 to length(memo.text) do //vichislenie faktoriala
if copy(memo.Text,i,1)='!' then //как только в строке находится знак факториала выполняются действия
begin
pos:=i; //чтобы не сбился цикл для дальнейших операций копирую положение "!"
m1: //
if (copy(memo.text,pos-2,1)<>'+') or (copy(memo.text,pos-2,1)<>'-') or (copy(memo.text,pos-2,1)<>'*') or (copy(memo.text,pos-2,1)<>'/') then //если пред-предыдущий символу "!" не "+,-,/,*" значит уменьшаем позицию на 1 и переходит к метке m1
begin
pos:=pos-1;
Goto m1
end;
end;
memo.text:=txt;


ну как бы этот код не вычисляет факториал, я пытаюсь хотя бы вырезать число

[veniside]

Goto m1

вот поэтому и виснет

[efkar]

а как организовать такой цикл в цикле чтобы не висла? через while пробовал..

[evg_m]

if  ( copy(memo.text,pos-2,1)<>'+') 
or ( copy(memo.text,pos-2,1)<>'-') 
or ( copy(memo.text,pos-2,1)<>'*') 
or ( copy(memo.text,pos-2,1)<>'/') then //если пред-предыдущий символу "!" не "+,-,/,*" значит уменьшаем позицию на 1 и переходит к метке m1

Выделенное красным ВСЕГДА =true (потому что если он ='+' значит <>'-' ) (false or true =TRUE)
значит всегда переход (тоже и while)
значит ВИСИМ.
Надо исправить условие, но как ? не совсем понятно, что хотим проверить.
может быть так?

if not (memo.text[pos-2] in ['+','-','/','*']) then //если проверяемый символ отличен от всех перечисленных то ....

while not (memo.text[pos-2] in []) do pos:=pos-1;

P.S. И конечно проверять pos-2 >0 !