Создание отчётов из выбираемых данных

procedure TForm1.FormCreate(Sender: TObject);
begin
  ID_List := TStringList.Create;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var s: String;
begin
  s := ADOQuery1.FieldByName('ID').AsString;
  if ID_List.IndexOf(s) = -1 then ID_List.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
    i: integer;
begin
  s := Format('SELECT * FROM LichData WHERE (ID=%s) ', [ID_List.Strings[0]]);
  if ID_List.Count > 1 then
   for i := 1 to ID_List.Count - 1 do
    s := s + Format('OR (ID=%s) ', [ID_List.Strings[i]]);
  ADOQuery1.Close;
  ADOQuery1.SQL.Text = Trim(s);
  ADOQuery1.Open;
end;

ID_List: TStringList;

ID_List.Clear;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ID_List.Free;
end;

procedure TBuildingReports.DBGrid1CellClick(Column: TColumn);
var s: String;
begin
ID_List := TStringList.Create;
s := fdm.ADOQuery1.FieldByName('Код').AsString;
if ID_List.IndexOf(s) = -1 then ID_List.Add(s);
end;
 
procedure TBuildingReports.Button7Click(Sender: TObject);
var s: String;
    i: integer;
begin
  s := Format('SELECT * FROM LichData WHERE (Код=%s) ', [ID_List.Strings[0]]);
  if ID_List.Count > 1 then
   for i := 1 to ID_List.Count - 1 do
    s := s + Format('OR (Код=%s) ', [ID_List.Strings[i]]);
  fdm.ADOQuery1.Close;
  fdm.ADOQuery1.SQL.Text:= Trim(s);
  fdm.ADOQuery1.Open;
end;