Как прицепить файл, содержащий формулу, к программе?

 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;