sql - SQL ストアド プロシージャからのクイック レポートの印刷

Question

次のコードでデータベースから特定のレコードの詳細を印刷しようとしています

procedure TReportsForm.BitBtn1Click(Sender: TObject);
begin
  if edit1.Text = '' then
  begin
    ShowMessage('Please enter the serial number first');
    Edit1.SetFocus;
  end
  else
  begin
    with AddIndividualsAccountADOQuery do
    begin
      SQL.Clear;
      SQL.Add('Select * from IndividualAccount where [Serial Number]=:Sno');
      Parameters.ParamByName('Sno').Value:=edit1.Text;
      Open;
      Active := True;
      singlememberreportform.QuickRep1.Preview;
    end;

    if AddIndividualsAccountADOQuery.RecordCount = 0 then
    begin
      ShowMessage('Empty Jonathan database to view records.');
    end
  end;
end;

問題は、プログラムを実行すると、クイックレポートが edit1.text でレコードのみを印刷するのではなく、データベース内のすべてのレコードを表示することです。つまり、実行されるレポートは、単に入力するのと似ています

procedure TReportsForm.BitBtn1Click(Sender: TObject); 
begin
  singlememberreportform.QuickRep1.Preview;
end;

問題のアイデアはありますか？