label WordWrap

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;

来自为知笔记(Wiz)