delphi 103 没有 ttextlayout组件怎么办

Delphi 10.3 中确实没有 TTextLayout 组件，但可以使用 TCanvas 和 TTextFormat 来实现文本布局和渲染。以下是一个简单的示例代码：

procedure TForm1.FormPaint(Sender: TObject);
var
  Text: String;
  Rect: TRectF;
  Format: TTextFormat;
begin
  Text := 'Hello, World!';

  Rect := TRectF.Create(0, 0, ClientWidth, ClientHeight);
  Format := [tfCenter, tfVerticalCenter, tfWordBreak];

  Canvas.Fill.Color := TAlphaColors.White;
  Canvas.FillRect(Rect, 0, 0, [], 1);

  Canvas.Font.Size := 20;
  Canvas.Font.Family := 'Arial';
  Canvas.Font.Style := [TFontStyle.fsBold];

  Canvas.Fill.Color := TAlphaColors.Black;
  Canvas.FillText(Rect, Text, False, 1, Format);
end;

这段代码将 "Hello, World!" 文本居中显示在窗口中，文本自动换行，并使用黑色颜色和粗体 Arial 字体进行渲染。您可以根据需要自定义文本的样式和布局