Antialiasing, Kantenglättung für Memo, Edit und Label

[FarAndBeyond]

Hi,
weis jemand von euch wie man aus diesen 3 Prozeduren eine machen kann?
Ich dachte das geht mit Obj: TObject oder Obj: TComponent oder const Obj: TComponentname oder irgendetwas in dieser Richtung...

Delphi-Quellcode:

Procedure Tform_XYZ.AAFontEdit(Obj: TEdit);
   Var
    Font    : TFont;
    LogFont : TLogFont;
 Begin
  Try
   Font := TFont.Create;
   Font.Assign(Obj.Font);
   GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
   LogFont.lfQuality := ANTIALIASED_QUALITY;
   Font.Handle := CreateFontIndirect(LogFont);
   Obj.Font := Font;
   Font.Free;
  Except
   Exit;
  End;
 End;


Procedure Tform_XYZ.AAFontMemo(Obj: TMemo);
   Var
    Font    : TFont;
    LogFont : TLogFont;
 Begin
  Try
   Font := TFont.Create;
   Font.Assign(Obj.Font);
   GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
   LogFont.lfQuality := ANTIALIASED_QUALITY;
   Font.Handle := CreateFontIndirect(LogFont);
   Obj.Font := Font;
   Font.Free;
  Except
   Exit;
  End;
 End;


Procedure Tform_XYZ.AAFontLabel(Obj: TLabel);
   Var
    Font    : TFont;
    LogFont : TLogFont;
 Begin
  Try
   Font := TFont.Create;
   Font.Assign(Obj.Font);
   GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
   LogFont.lfQuality := ANTIALIASED_QUALITY;
   Font.Handle := CreateFontIndirect(LogFont);
   Obj.Font := Font;
   Font.Free;
  Except
   Exit;
  End;
 End;

Schöne Grüsse
Martin