Hola de nuevo.
Me quedé con dudas sobre la capacidad del Combo he hice una prueba:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to 86000 do
try
ComboBox1.Items.Add('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
except
ShowMessage(IntToStr(i));
end;
end;
Tardó en llenarlo, pero no provocó excepción... ¿ Estas seguro que son sólo 6700 items ?
Saludos.