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;