Einlesen von SQL-Daten in Combobox

[cell]

procedure TfrmTestauswahl.cbotestnummerChange(Sender: TObject);
myQuery.First;
while not (myQuery.Eof) do
begin
qrMain.SQL.Text:='SELECT `Testnummer` WHERE `Testabschnitt=3`;
Combobox.Items.Add(myQuery.Fields[0].AsString);
end;

end.


Kann man das so schreiben oder sind da gravierende Fehler drinnen?? wenn ja welche