procedure TForm4.FormPaint(Sender: TObject);
var
R: TRect;
begin
R := ClientRect;
InflateRect(R, -10, -10);
Canvas.Brush.Color := clYellow;
Canvas.Brush.Style := bsFDiagonal;
Canvas.Pen.Color := clRed;
Canvas.Rectangle(R);
end;
結果を生成します

Invalidate
(フォームのを忘れないでくださいOnResize
。)
領域が黄色の斜め線で塗りつぶされていることに注意してください。これは実際にbsFDiagonal
ブラシ スタイルが行うことです。

あなたの質問の文言 (「斜めの十字を描きたい [...]」) から、実際には何か他のもの、つまり長方形の中に大きな十字が必要であると思われます。これは、標準のブラシを使用してもまったく達成できません。むしろ、手動で描画する必要があります。
procedure TForm4.FormPaint(Sender: TObject);
var
R: TRect;
begin
R := ClientRect;
InflateRect(R, -10, -10);
Canvas.Brush.Color := clWhite;
Canvas.Brush.Style := bsSolid;
Canvas.Pen.Color := clRed;
Canvas.Rectangle(R);
Canvas.MoveTo(10, 10);
Canvas.LineTo(R.Right, R.Bottom);
Canvas.MoveTo(10, R.Bottom);
Canvas.LineTo(R.Right, 10);
end;
