[cyborgg4655]

Сообщение от poli-smen

Что-то здесь сильно наворочено. Вот так будет проще и правильней:

Код:

var
  a1, a2, a3, a4: string;
begin
  ADOQuery6.First;
  while not ADOQuery6.Eof do
  begin
    a1 := ADOQuery6.FieldByName('Корпус').AsString;
    a2 := ADOQuery6.FieldByName('Ряд').AsString;
    a3 := ADOQuery6.FieldByName('Место').AsString;
    a4 := ADOQuery6.FieldByName('Ярус').AsString;
    Label7.Caption := Format('%s:%s-%s/%s', [a1, a2, a3, a4]);
    if ComboBox6.Items.IndexOf(Label7.Caption)<0 then ComboBox6.Items.Add(Label7.Caption);
    ADOQuery6.Next;
  end;
end;

Ну или если есть возможность переделай как советует Aristarh Dark SQL-запрос, что-бы он не выдавал повторяющихся записей.

В SQL я послабее чем в delphi, поэтому для меня этот вариант будет проще) Спасибо, все заработало!)