Füllen von Label-Feldern nach Auswahl einer Combobox

[Ati]

So habe es nun nach etlichen Flüchtigkeitsfehlern hinbekommen. Jedoch gibt es eine Fehlermeldung wenn ich eine Postleitzahl ausgewählt habe und dann per Combobox die nächste auswählen möchte. Irgendwie hat er das nicth so gerne. Hiermal mein Code.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var plz:String;
begin
   dbc1.Clear;
  dbmain.Connected:=true;
  dbmain.KeepConnection:=true;
  qr1.SQL.Text:='Select * from PLZ ORDER BY Gebiet';
  qr1.open;
  qr1.First;
    while not (qr1.EOF) do
    begin
      plz := qr1.FieldByName('Gebiet').AsString;
      dbc1.Items.Add(plz);
      qr1.Next;
    end; 


procedure TForm1.dbc1Change(Sender: TObject);
var plz2:String;
begin
  plz2:= dbc1.text;
  qr2.SQL.text:='Select ORT FROM PLZ where Gebiet = '+ quotedstr(dbc1.Text);
  qr2.Open;
  lblort.Caption:= qr2.FieldByName('Ort').AsString;
end;

Wie gesagt wenn ich nach einer Auswahl erneut die Combobox "ausfahren" will kommt ein Fehler.