>>757
var
　Atext : String;
　Apos : Integer;
begin
　Atext := Edit1.Text + Edit2.Text ;
　//足すの場合
　Apos := AnsiPos('+',AText);
　if Apos <> 0 then
　begin
　　result := StrToInt(Edit1.text) + StrToInt(Edit2.text)
　　Apos:=0;
　end;
　//かけるの場合
　Apos := AnsiPos('*',AText);
　if Apos <> 0 then
　begin
　　result := StrToInt(Edit1.text) * StrToInt(Edit2.text)
　　Apos:=0;
　　end;
　//引くと割るの場合は自分で考えてみよう。それと、TEdit.textの値が有効なものか事前にチェックする必要がある。
end;