procedure TMainDialog.FormCreate(Sender: TObject);
begin
Constraints.MinWidth := Width;
Constraints.MinHeight := Height;
Constraints.MaxWidth := Width;
Constraints.MaxHeight := Height;
Scaled := False;
if Application.HasOption('f', '') then begin
OpenDialog.InitialDir := Application.getOptionValue('f');
end;
end;