TObjectlist Problem mit index

[DeddyH]

Zur Verdeutlichung noch ein Codeschnippsel (mit einer List- statt einer ComboBox, aber ist ja egal):

Delphi-Quellcode:

procedure TfrmStammdaten.btnDeleteSalutationClick(Sender: TObject);
begin
  if lbSalutations.ItemIndex > -1 then
    case TSalutation(lbSalutations.Items.Objects[lbSalutations.ItemIndex]).Delete of
        dtOK: begin
                TSalutation(lbSalutations.Items.Objects[lbSalutations.ItemIndex]).Free;
                lbSalutations.DeleteSelected;
              end;
     dtError: MessageBox(Handle,'Beim Löschen ist ein Fehler aufgetreten.',
                         nil,MB_OK or MB_ICONERROR)
    end;
end;