Примерно вот так
Код:
...
ProgressBar1.Max:=
X * StrToInt(Edit1.Text) +
Y * StrToInt(Edit2.Text) -
Z * StrToInt(Edit3.Text);
ProgressBar1.Position:= ProgressBar1.Max - StrToInt(Edit4.Text);
...
нужно ещё расставить (заключить в круглые скобки операнды выражений) приоритет на арифметические действия, в смысле что выполняется в первую очередь, сложение или вычитание. В делфи приоритеты точно такие же, как и в математике, но я их не помню
