刚才的代码请用 TCanvas 和 TTextFormat 来实现文字全屏幕呈S形状排列

以下是使用 TCanvas 和 TTextFormat 实现文字全屏幕呈 S 形状排列的代码：

procedure TForm1.FormCreate(Sender: TObject);
var
  Canvas: TCanvas;
  TextFormat: TTextFormat;
  Text: string;
  X, Y, I: Integer;
begin
  Canvas := Self.Canvas;
  TextFormat := [tfSingleLine, tfVerticalCenter, tfCenter];
  Text := 'S';
  X := 0;
  Y := 0;

  for I := 1 to Screen.Width * Screen.Height div Canvas.TextWidth(Text) do
  begin
    Canvas.TextRect(Rect(X, Y, X + Canvas.TextWidth(Text), Y + Canvas.TextHeight(Text)), Text, TextFormat);
    if Odd(Y div Canvas.TextHeight(Text)) then
      Inc(X, Canvas.TextWidth(Text))
    else
      Dec(X, Canvas.TextWidth(Text));
    if X > Screen.Width - Canvas.TextWidth(Text) then
    begin
      X := Screen.Width - Canvas.TextWidth(Text);
      Inc(Y, Canvas.TextHeight(Text));
    end
    else if X < 0 then
    begin
      X := 0;
      Inc(Y, Canvas.TextHeight(Text));
    end;
  end;
end;

这段代码将在窗体创建时执行，使用 Canvas 和 TextFormat 来绘制 S 形状的文字，通过循环遍历整个屏幕，每次绘制一个字符并根据当前位置和方向计算下一个字符的位置，从而实现整个屏幕的 S 形状排列