procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:='hello,are you good? yes,good.';
end;
//因Label的AutoSize属性设为false，高度应是原默认高度
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.AutoSize:=false;
  showmessage(inttostr(Label1.Height)); //值为原Label默认的高度
end;
//让其折行，并得出此时label的高度
procedure TForm1.Button3Click(Sender: TObject);
begin
  Label1.AutoSize:=true;
  showmessage(inttostr(Label1.Height));//值为现Label改变过的高度
end;