Delete SQL

[thiagojonas]

Delphi-Quellcode:

procedure TForm4.delete_btnClick(Sender: TObject);
var
  i: integer;
  h: integer;
begin
ADOQuery1.Open;

  for h := lehrer_list.Items.Count - 1 downto 0 do
    if lehrer_list.Selected[h] then
  for i := lehrer_list.Items.Count - 1 downto 0 do
    if lehrer_list.Selected[i] then
      lehrer_list.Items.Delete(i);
  ADOQuery1.SQL.Text :=  'delete from `lehrer` where `lehrer` = '''+lehrer_list.Items[i]+''';';
end;

Hier kommt eine fehlermeldung. Itemindex überschreitet das maximum von -1