Use Vista's Segeo font for all forms by using the SetVistaFonts() in mainform plus the new routine InheritFont() which simply overtakes fontname and size from the mainform to all other forms.

source/queryprogress.pas

@@ -12,6 +12,7 @@ type
     lblStatusMsg: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure btnAbortClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     procedure HandleQueryNotificationMsg(var AMessage : TMessage); message WM_MYSQL_THREAD_NOTIFY;
   public
@@ -25,7 +26,8 @@ implementation
 
 uses
   ChildWin,
-  helpers;
+  helpers,
+  main;
 
 {$R *.dfm}
 
@@ -42,6 +44,11 @@ begin
   Action := caFree;
 end;
 
+procedure TfrmQueryProgress.FormCreate(Sender: TObject);
+begin
+  InheritFont(Font);
+end;
+
 {***
   Handles the TMysqlQueryThread notification messages.