Parametros

[[eduarcol]]

la consulta esta bien solo debes cambiar esto

Código Delphi [-]
procedure TfrmMain.FormShow(Sender: TObject);
begin
  adoquery.Active := False;
  adoquery.Parameters.ParamByName('prTipo').Value:=2;
  adoquery.Active := True;
end;