Dealing with Large Fonts in D7

[jvoelker]

What is the best way to handle Large Fonts in D7 so that your forms are displayed correctly regardless of the font size used?

I have found two basic approaches

1.
procedure TForm1.FormCreate(Sender: TObject);
begin
Assert(not Scaled, 'TForm.Scaled property sucks, you should set it to False!');
if Screen.PixelsPerInch <> PixelsPerInch then
begin
ScaleBy(Screen.PixelsPerInch, PixelsPerInch);
end;
end;

2.
Set form.scaled := true
Set form.autoscroll := false;

Any advice is greatly appreciated.

Jim Voelker