Hola.
Podes hacer:
Código Delphi
[-]
function HaySeleccion(AListBox: TListBox): Boolean;
var
i: Integer;
begin
Result:= False;
for i:= 0 to AListBox.Items.Count-1 do
if AListBox.Selected[i] then
Result:= True;
end;
Ejemplo de uso:
Código Delphi
[-]
if HaySeleccion(ListBox1) then
...
Saludos.