Sind bei Dir die Einrückungen auch etwas verquer? Dann würde ich das mal korrigieren (liest sich besser).
Kann Dein Problem an Groß/Kleinschreibung liegen?
Grundsätzlich kannst Du es sicher auch einkürzen:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox7.Items.Delete(ComboBox7.Items.IndexOf(ComboBox1.Text));
Combobox9.Items.Delete(Combobox9.Items.IndexOf(ComboBox1.Text));
end