Código Delphi [-] f:= TGpFont.Create(fam, -lf.lfHeight, style, UnitWorld);
f:= TGpFont.Create(fam, -lf.lfHeight, style, UnitWorld);