function DrawDisabledText (Canvas : tCanvas; Str: PChar; Count: Integer;
 var Rect: TRect; Format: Word): Integer;
begin
 SetBkMode(Canvas.Handle, TRANSPARENT);

 OffsetRect(Rect, 1, 1);
 Canvas.Font.color := ClbtnHighlight;
 DrawText(Canvas.Handle, Str, Count, Rect, Format);

 Canvas.Font.Color := ClbtnShadow;
 OffsetRect(Rect, -1, -1);
 DrawText(Canvas.Handle, Str, Count, Rect, Format);
end;