Siento haber tardado tanto, pero he estado fuera 1 semana.
Código Delphi
[-]
begin
with Checlistbox do
if itemindex <> -1 then if Checked[itemindex] then result := items[itemindex]
end;
He añadido lo de Checked[itemindex] porque, al ser un CheckListbox, supongo que quieres que esté marcada la casilla para aceptarlo.
Saludos;