delphi菜鸟编程````````
procedure TForm1.Button1Click(Sender: TObject);
var
q1,q2,q3:integer;
p1,p2,p3,t:currency;
begin
q1:=strtoint(edit1.text);
q2:=strtoint(edit3.text);
q3:=strtoint(edit5.text);
p1:=strtocurr(edit2.text);
p2:=strtocurr(edit4.text);
p3:=strtocurr(edit6.text);
t:=q1*p1+q2*p2+q3*p3;
label6.Caption :='总价为：'+currtostr(t);
end;
这些label我在编辑时大小都调整正常了，可是一运行总是显示不全内容，怎么办啊？
追问：label在运行后总是自己就变小了，显示不全字怎么办？？
