Проверьте правильность составленного алгоритма. Делфи

procedure TForm1.FormActivate(Sender: TObject);
begin
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Text:='SELECT * FROM [Place]';
   ADOQuery2.Open;
   while not ADOQuery2.Eof do
      begin
         ComboBox1.Items.Add(ADOQuery2.Fields[1].AsString);
         ADOQuery2.Next;
      end;
   ComboBox1.ItemIndex:=0;
   ADOQuery2.Close;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT b1.Date_metering, b2.Name_place, b1.Value_metering');
   ADOQuery1.SQL.Add('FROM (Metering AS b1');
   ADOQuery1.SQL.Add('LEFT JOIN Place AS b2 on b1.Id_place=b2.Id_place)');
   ADOQuery1.SQL.Add('WHERE b1.Id_place=:Param1');
   ADOQuery1.Parameters.Refresh;
   ADOQuery1.Parameters[0].Value:=ComboBox1.ItemIndex+1;
   ADOQuery1.Open;
 
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Add('SELECT * FROM Metering AS b1');
   ADOQuery2.SQL.Add('WHERE b1.Value_metering=(');
   ADOQuery2.SQL.Add('SELECT Max(Metering.Value_metering) AS Maks');
   ADOQuery2.SQL.Add('FROM Metering');
   ADOQuery2.SQL.Add('WHERE Metering.Id_place=:Param2)');
   ADOQuery2.Parameters.Refresh;
   ADOQuery2.Parameters[0].Value:=ComboBox1.ItemIndex+1;
   ADOQuery2.Open;
   Label1.Caption:='Загрязненность воздуха в "'+ComboBox1.Text+'" была максимальной '+DateToStr(ADOQuery2.Fields[2].AsDateTime)+' и составляла '+FloatToStrF(ADOQuery2.Fields[3].AsFloat,ffNumber,15,4);
   ADOQuery2.Close;
end;
 
end.