[k3RZzy#]

Всем привет.Мне требуется помощь по калькулятору:короче я поковырялся в интернете от туда от сюда везде пособирал информации и кода,вроде работает но есть но:
1)Почему-то 9 не делит на 3
2)Неправильно решает примеры где больше одного действия не нажимая кнопки равно(то есть допустим пример 3+7-1 он дает ответ 6).
Прошу помочь решить данные ошибки.Заранее спасибо.

[M.A.D.M.A.N.]

http://www.delphisources.ru/pages/so...alculator.html

Ничто не ново под Луной.

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  Variants,
  MSScriptControl_TLB in 'MSScriptControl_TLB.pas';

var
  ScriptControl: IScriptControl;
  Expression: WideString;
  Eval: OleVariant;

begin
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  
  (* вычисляемое выражение *)
  Expression:='Math.sqrt(9)*5+985';

  Eval:=ScriptControl.Eval(Expression);
  Writeln(Expression+' = '+VarToStr(Eval));
  Writeln('Press Enter key...');
  Readln;
end.