عمل نکردن تابع ضد پلگی قلم در TImaage

[mbshareat]

با سلام. از این تابع برای قلم نرم استفاده می کن و متوجه شدم در TImage کار نمی کنه.چه کار کنم؟
procedure SetFontToClearType(const aFont: TFont);var
LogFont: TLogFont; TempFont: TFont;
begin
TempFont:= TFont.Create;
try
TempFont.Assign(aFont);
GetObject(TempFont.Handle, sizeof(LogFont), @LogFont);
LogFont.lfQuality := 5;
LogFont.lfWeight := 500;
TempFont.Handle:= CreateFontIndirect(LogFont);
aFont.Assign(TempFont);
finally
TempFont.Free;
end;
end;