[Choclito]

Con buenas noticias ya puedo controlar el error que daba y lo solucione con el codigo propuesto por el amigo cloayza el cual es el siguiente

Código Delphi [-]
procedure TF_Registro_Internacion.ListView1DblClick(Sender: TObject);
var seleccionado:string;
begin
 seleccionado:='';
//if ListView1.ItemFocused = nil then
if Not Assigned(Listview1.Selected) Then
  exit;
              MB_OK + MB_ICONINFORMATION)
else
begin
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
  MsgBox ('Hospital Cristo de las Americas','Debe seleccionar Sala y Cama Habil para registrar...',
              MB_OK + MB_ICONINFORMATION)

  end;
end;

Muchas gracias amigos del foro