Вычисление в Edit'e

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
  function Parser(s: string): Double;
  function Parse(): Double;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 var
  InpStr:   string; //Копия входной строки
  InpPos,a:   integer;//Номер текущего символа
  CurrChar: char;   //Копия текущего символа
  b,c: Real;
 
{$R *.dfm}
//Процедура берёт следующий символ из строки
procedure GetNextChar;
begin
  if InpPos < length(InpStr) then begin
    Inc(InpPos);
    CurrChar := InpStr[InpPos];
  end
  else
    CurrChar := #0;
end;
 
//отсеивает ненужные символы
procedure SkipSpace;
begin
  while CurrChar in [' ', #9,#95] do
     GetNextChar;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := FloatToStr(Parser(Edit1.Text));
end;
 
 
//Функция чтения числа
 function GetNumber:Double;
begin
  result := 0;
  SkipSpace;
  while CurrChar in ['0'..'9'] do begin
      result := result * 10 + ord(CurrChar) - ord('0');
      GetNextChar;
       end;
  SkipSpace;
end;
 
 
//Парсер :)
function Parse():Double ;
begin
  Result := GetNumber;
  repeat
    case CurrChar of
      #0: exit; //Достигли конца строки
      '+':      //Нужно сложить
      begin
        GetNextChar;
        Result := Result + GetNumber;
      end;
      '-':      //Нужно вычесть
      begin
        GetNextChar;
        Result := Result - GetNumber;
      end;
      '*':      //Нужно умножить
      begin
        GetNextChar;
        Result := Result * GetNumber;
      end;
      '/':      //Нужно разделить
      begin
        GetNextChar;
        Result := Result/GetNumber;
      end;
      '.':      //Нужно добавить разделитель
      begin
        GetNextChar;
        b:= GetNumber;
        a:= Length(FloatToStr(b));
        Result := Result + b*IntPower(0.1,a);
        a:= 0;
      end;
      ',':      //Нужно добавить разделитель
      begin
        GetNextChar;
        b:= GetNumber;
        a:= Length(FloatToStr(b));
        Result := Result+b*IntPower(0.1,a);
        a:= 0;
      end;
      '^':      //Нужно возвести в степень
      begin
        GetNextChar;
        Result:= Power(Result,GetNumber);
      end;
      else  //Какой-то неизвестный символ.
        raise Exception.CreateFmt(
          'Не могу выполнить действие с '#13#10+
          '   символом " %s " позиции :  %d',
          [CurrChar, InpPos]);
    end;
  until False;
 
end;
 
//Иницализация и запуск парсера
function Parser(s: string): Double;
begin
  InpStr := s;
  InpPos := 0;
  GetNextChar;
  Result := Parse();
 
end;