procedure TForm1.Button1Click(Sender: TObject); var i, j, iCount : integer; begin iCount := ComboBox1.Items.Count; i := 0; while i<iCount do begin j := i+1; while j<iCount do with ComboBox1.Items do begin if Strings[i] = Strings[j] then begin Delete(j); Dec(iCount); end else j := j+1; end; i := i+1; end; end;