Feld in DBComboBox auf Unique überprüfen und eintragen

[ATS3788]

Hallo
nach Monaten der Krankheit
versuche ich mal wieder zu programmieren.

Also ich versuche zu erklären
was ich benötige.

Ich habe einen Datenfeld "LOCATION"
und fülle das mit der Zeit mit verschiedenen Werten.

Beim starten möchte ich das ich eine Auswahl
dieser Werte "LOCATION" habe.

Die folgende Routine funktioniert ganz gut.

Meine Frage

Kann man das besser bewerkstelligen ?

Delphi-Quellcode:

procedure TMain.FormShow(Sender: TObject);
var
i : integer;
t : boolean;
begin
DataModule1.ZQuery3.First;  // First Dataset
while not DataModule1.ZQuery3.Eof do begin
t := true;  // Trigger a new Dataset = true
for i := 0 to DBCoEdLOCATION.Items.Count-1 do
if DBCoEdLOCATION.Items.Strings[i] = DataModule1.ZQuery3LOCATION.Value then
t := false;
// Set new Entry into the DBComboBox
if t then
DBCoEdLOCATION.Items.Add(DataModule1.ZQuery3LOCATION.Value);

DataModule1.ZQuery3.Next;
end;
  end;