Gettext verhindern, das ein bestimmtes Label übersetzt wird

[DelphiManiac]

Hi,
ich nutzte GnuGettext von folgender Homepage
http://dybdahl.dk/dxgettext/

die Unit hat leider kein ReTranslateComponent...

bei mir sieht die Methode so aus:

Delphi-Quellcode:

procedure TGnuGettextInstance.TP_Ignore(AnObject: TObject;
  const name: string);
begin
  TP_IgnoreList.Add(uppercase(name));
end;