Schrift bei Resize auch verändern ?

[Delphiturbo]

Hallo

wenn ich meine Form skaliere mit diesem Code, dann bleibt die Schriftgröße unverändert.

Wie kann ich sie auch mit skalieren ?

Delphi-Quellcode:

var
  Form1: TForm1;

implementation
uses
    Math;

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
var
 ration : Double;
begin
    Ration:=min(Clientwidth / Panel1.Width, ClientHeight / Panel1.Height);
    Panel1.ScaleBy(trunc(Ration * 100),100);
end;