unit ZoomProp; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmZoomProperties = class(TForm) GroupBox1: TGroupBox; Button1: TButton; Button2: TButton; Label1: TLabel; cmbFilter: TComboBox; chkDelayed: TCheckBox; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation uses Main; {$R *.DFM} procedure TfrmZoomProperties.FormCreate(Sender: TObject); begin FillComboWithFilters( cmbFilter ); end; end.