Controlar evento dobleclik de listview

[Choclito]

Buenos dias amigos del foro, decirles que como siempre con los post del foro uno aprende mas sobre programación.
Antes comentarles el motivo de este post, tengo un listview q me muestra iconos de camas dependiendo el campo de una de mi tabla en firebird ahora lo que hice con la ayuda de los post del foro, es que al hacer dobre click sobre un icono valido me muestra un form de registro de datos de los pacientes a esa cama, el codigo en el evento doble click es el siguiente:

Código Delphi [-]
procedure TF_Registro_Internacion.ListView1DblClick(Sender: TObject);
var seleccionado:string;
begin
 seleccionado:='';
seleccionado:=listview1.Selected.Caption;

 if seleccionado<>'' then
 begin
  if listview1.Selected.ImageIndex=1 then
  begin
          modulo_dir_medica.MDOQ_Nro.Close;
     modulo_dir_medica.MDOQ_Nro.ParamByName('tipo').AsInteger:=tipo.KeyValue;
     modulo_dir_medica.MDOQ_Nro.ParamByName('sala_cama').AsString:=listview1.Selected.Caption;
     modulo_dir_medica.MDOQ_Nro.Open;

        f_internaciones:=tf_internaciones.Create(Self);
    try
     f_internaciones.nro:=modulo_dir_medica.MDOQ_Nro.FieldByName('nro').AsInteger;
     f_internaciones.Edit1.Text:=seleccionado;
     f_internaciones.Edit2.Text:=tipo.Text;
     f_internaciones.ShowModal;
    finally
    f_internaciones.Release;
    end;

    end
 end
 else
//mensaje a mostrar 
end;

El problema es que cuando hago doble click en un espacio en blanco del listview me sale un error :access violation at adress 0065FAA3 in module SIHCA:exe
y en el codigo me marca la siguiente linea :

Código Delphi [-]
seleccionado:=listview1.Selected.Caption;

entiendo que cuando hago doble click en un espacio en blanco la linea anterior no tendria q mostrar texto pero no se controlar este error q se genera, les estare muy agradecido por la ayuda que me brinden amigos del foro