function TPageSetupDialog.DoExecute: Boolean;
var
Dlg: TDlgPageSetup;
begin
Dlg:=TdlgPageSetup.Create(nil);
if Title<>'' then
Dlg.Caption:=Title
else
Dlg.Caption:=DefaultTitle;
try
Result:=(Dlg.ShowModal=mrOk);
if Result then begin /// <<-- I THINK, SOMETHING IS MISSING HERE
end;
finally
Dlg.Free;
end;
end;