[Appolon]

Ну к примеру можно так:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('select count(zakupok), sum(Cena), avg(Cena), max(cena),         min(cena)  from pokupki;');
  Query1.Open;

  Label1.Caption:=Query1.Fields[0].AsString;
  Label2.Caption:=Query1.Fields[1].AsString;
  Label3.Caption:=Query1.Fields[2].AsString;
  Label4.Caption:=Query1.Fields[3].AsString;
  Label5.Caption:=Query1.Fields[4].AsString;
end;

Я не знаю какие Query 6 штук Вы создали, но я уверен, что их можно объединить в один.