Caixa de Impressão Apareça ao clicar no botão Imprimir

Como Fazer que para quando clicar no botão imprimir fazer com que o sistema abra aquela caixa de impressão padrão onde nela consigo ecolher a impressora que quero que imprima e a qualidade de impressão etc...

Estou usando delphi 6 e banco de dados interbase.

Veja o comando que utilizo abaixo: Para realização deste comando abaixo utilizo 3 botões que são imprimir, vizualizar e sair e 1 RadioGroup.

procedure TForm12.BitBtn1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = -1 then
begin
Showmessage(´Selecione uma Ordem de Impressão´);
Exit;
end;
with DM.IBQuery2 do
begin
close;
SQL.Clear;
SQL.Add(´SELECT* FROM CLIENTES ORDER BY´);
if RadioGroup1.ItemIndex = 0 then
begin
SQL.Add(´COD_CLIENTE´);
end
else if RadioGroup1.ItemIndex = 1 then
begin
SQL.Add(´NOME_CLIENTE´);
end;
open;
if RecordCount = 0 then
begin
Showmessage(´Nenhum registro econtrado.´);
Exit;
end;
end;
if Sender = BitBtn1 then
begin
form13.QuickRep1.Print;
end
else if Sender = BitBtn2 then
begin
form13.QuickRep1.Preview;
end;
form13.QuickRep1.QRPrinter:=nil;
end;
procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form12.BitBtn1.Visible:=false;
form12.BitBtn2.Visible:=true;
form12.Label1.Caption:=´´;
form12.BitBtn3.Caption:=´Sair´;

end;