Zooming

Zooming is simply done by setting the ZoomFactor property of each of the Text Controls:

procedure TForm1.N751Click(Sender: TObject);
begin
   Zoom := TXParent.ZoomFactor;
   TXParent.ZoomFactor := 75;
   For i := 1 to MaxID do begin
      TXhWnd := FindComponent('TXChild' + InttoStr(i));
      TTXTextControl(TXhWnd).ZoomFactor := 75;
   end;
   TXhWnd := FindComponent('N' + InttoStr(Zoom) + '1');
   TMenuItem(TXhWnd).Checked := False;
   N751.Checked := True;
end;