Работа с TPrintDlg

[roperd]

Здравствуйте, появилась проблема при работе с TPrintDlg, категорически отказывается менять принтер при работе программы, действует только если сменить принтер и перезапустить программу, стандартный PrintDialog не предлагать, он не подходит, ниже есть код который я использую при печати, надеюсь на вашу помощь.

procedure TForm1.N12Click(Sender: TObject);
var
x : Integer;
filename : TextFile;
Pd : TPrintDlg;
begin
FillChar(Pd, sizeof(Pd), 0);
Pd.lStructSize := sizeof(Pd);
Pd.hWndOwner := Form1.Handle;
Pd.Flags := PD_RETURNDC;
If PrintDlg(pd) then begin
Printer.Canvas.Font.Assign(CurrText);
AssignPrn(filename);
Rewrite(filename);
try
for x:= 0 to RichEdit1.Lines.Count - 1 do
Writeln(filename, RichEdit1.Lines[x]);
finally
CloseFile(filename);
end;
end;
end;