¿como obtener dos items seleccionados en un checklistbox?

[danielmj]

Hola de nuevo,

Tengo un checkListBox con 20 opciones, por otro lado, tengo dos labels en las que quiero meter los dos items seleccionados del checklistBox.
Hasta ahora tengo este codigo:

Código Delphi [-]
for i:= 0 to chName.Items.Count -1 do
    begin
      if chName.Checked[i] then
        begin
          if chName.State[i] = cbChecked then
            label7.Caption:= QuotedStr(chName.Items[i]);
            label8.Caption:= QuotedStr(chName.Items[i]);
            j:= j+1;
        end;
        if j > 2 then
          begin
            if Application.MessageBox ('Sólo pueden seleccionarse dos colores','Atención',mb_iconInformation+
            mb_Ok) = idOk then
            chName.Checked[i]:= false;
            chName.Selected[i]:= false;
            exit
          end;
    end;

El problema es que en los dos labels, me muestra el primer item que selecciono obviando el segundo. Por otra parte, como veis controlo que no se seleccionen mas de dos elementos, si fuerzo ese punto, en las etiquetas mete el tercer elemento que se intenta seleccionar antes de ser impedido, machacando el valor que ya tuviese.

Dicho de otro modo, de los 20 elementos, quiero seleccionar 2 y que los meta en dos etiquetas, un elemento en cada una.
¿Alguna idea o sugerencia?

Saludos.