Fehlerbehandlung komisch

[Memo]

Bau es doch mal ein wenig um.

Delphi-Quellcode:

procedure TfrmChange.lbInstProgDblClick(Sender: TObject);

var vorhanden, verwendet : integer;
begin
   IBQuery1.SQL.Clear;
   IBQuery1.SQL.ADD('SELECT INST_PROGR, VORH_LIZENZEN FROM T_PROGR WHERE PROGR_STRING = ');
   IBQuery1.SQL.ADD('QuotedStr(lbInstProg.Items[lbInstProg.ItemIndex]');
   IBQuery1.Open;
   while not IBQuery1.Eof do
   begin
     try
         vorhanden := IBQuery1.FieldByName('VORH_LIZENZEN').AsInteger;
         verwendet := IBQuery1.FieldByName('INST_PROGR').AsInteger;
         lblVerwendet.Caption := 'Verwendete Lizenzen: '+IntToStr(verwendet);
         edLiz.Text := IntToStr(vorhanden);
         IBQuery1.Next;
      except
         IBQuery1.Next;
      end;
   end;
end;

Ich glaube mich dunkel zu erinnern mit diesen Steuerzeichen auch schonmal ein Problem gehabt zu haben.