procedure TForm1.Button1Click(Sender: TObject);
var
v1,v2,v3,v4,v5:string;
begin
v1:='1';
v2:='+';
v3:='3';
v4:='*';
v5:='2';
Edit1.Text:=v1+v2+v3+v4+v5;//我用Edit1.Text代替了ALL=,想变成你的要求,自己变通下吧.
end;