계산 공식을 문자로 받고 값 또한 사용자에게 받아서

등록된 계산 공식에 의해 처리해야하는데 어케 처리를 해야할까여!

이것을 처리하기 위해서 배열을 두개로 처리하고 값과 위치를 저장하는곳을
받아서 처리했는데...

한계가 있더라구여! 방법또한 무식하구여!

이 프로그램의 포인트는 계산 공식이 매번 바뀌수도 있는것입니다.

배열을 KeyInt, KeyValue  : Array of Variant; 이케했거든여!

-----------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
StrTmp: String;
CntKN, CntKV: SmallInt;
ArrTmp: Array of String;
KeyInt, KeyValue  : Array of Variant;
f1, f2, f3, TxtCnt: SmallInt;
Const varName: Array[0..9] of String = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J');
function KeyTaget(Str: String): Boolean;
var f1: SmallInt;
begin
   for f1 := 0 to 9 do begin
     if Str = varName[f1] then Result := TRUE
     else                      Result := FALSE;
   end;
end;
begin
TxtCnt := Length(Edit6.Text);
SetLength(ArrTmp, TxtCnt);
for f1 := 0 to TxtCnt-1 do begin
   ArrTmp[f1] := Copy(Edit6.Text, f1+1, 1);
   if KeyTaget(ArrTmp[f1]) then KeyInt[f1] := f1+1;
end;         //((A+B)*C)
SetLength(KeyValue, 5);
KeyValue[0] := Edit1.Text;
KeyValue[1] := Edit2.Text;
KeyValue[2] := Edit3.Text;
KeyValue[3] := Edit4.Text;
KeyValue[4] := Edit5.Text;
.
.
.
.
.
end;
ㅜㅜ; 하는 중에 어찌해야할지를 몰라서 생각중인데...
혹시나 제가 컨셉을 잘못잡았다면 지적해주세요! 또한 다른 좋은 방법이 있으면
가이드해주셔도 좋구여! ^^;
즐건 하루보네세요!