تغییر فونت کپشن فرم دردلفی؟

[rashinsp]

درود..
آیا کسی بلد فونت کپشن فرم رو دردلفی تغییر بده؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ممنون میشم کمک کنید ..............

[golbafan]

سلام

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var ACanvas: TCanvas;
intLeftShift, intTopShift: Integer;
begin
inherited;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := GetWindowDC(Form1.Handle);
with ACanvas do
begin
Brush.Color := clActiveCaption;
Font.Style := [fsItalic];
intLeftShift := GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CXBORDER);
intTopShift := (GetSystemMetrics(SM_CYCAPTION) - Abs(Font.Height)) div 2 + 1;
TextOut(intLeftShift, intTopShift, Caption)
end;
finally
ReleaseDC(Form1.Handle, ACanvas.Handle);
ACanvas.Free
end;
end;