delphi 在组件上输出文字

procedure TForm1.DrawCaptionText;
const
captionText = '龙生';
var
canvas: TCanvas;
begin
canvas := TCanvas.Create;
try
canvas.Handle := GetWindowDC(GroupBox2.Handle) ;
with canvas do
begin
Brush.Style := bsClear;
Font.Color := clOlive;
Font.Size:=26;
TextOut(369, 220, captionText) ;
end;
finally
ReleaseDC(GroupBox2.Handle, canvas.Handle) ;
canvas.Free;
end;
end;