procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.AutoSize := False;
Label1.WordWrap := True;
Label1.Text := ‘This is my caption that I would like to be wrappedThis is my caption that I would like to be wrapped‘;
Label1.Width := 100;
Label1.AutoSize := True;
end;原文：http://www.cnblogs.com/xe2011/p/3875917.html