Encontre ahora mismo la solcion...
Código:
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
if lbClassesSeleccionades.Items.count<>0 then begin
lbClassesSeleccionades.Items.Delete(lbClassesSeleccionades.ItemIndex);
end;
end;
Murphy tenia razon en decir que cuando uno plantea una duda, seguidamente al volver al problema encuentra la solucion... pues a mi me pasa igual.... jejeje
muchas gracias por si alguien estaba intentando contestarme.......