SelectedRows esta vacia

[Paulao]

Este mi codigo abajo esta vindo vacio, mismo quando yo selecciono una linea.

Código Delphi [-]
procedure TfrmRelGerencialMT.BitBtn1Click(Sender: TObject);
begin
  if DBgrid1.SelectedRows. > 0 then
    pnlFiltro.Visible := True
  else
  begin
    MessageDlg('Selecione um item primeiro',mtInformation,[mbOk],0);
    pnlFiltro.Visible := False;
    Exit;
  end; 
end;

[Paulao]

Mi codigo verdadero es este

Código Delphi [-]
procedure TfrmRelGerencialMT.BitBtn1Click(Sender: TObject);
begin
  if DBgrid1.SelectedRows.Count > 0 then
    pnlFiltro.Visible := True
  else
  begin
    MessageDlg('Selecione um item primeiro',mtInformation,[mbOk],0);
    pnlFiltro.Visible := False;
    Exit;
  end; 
end;

[Neftali [Germán.Estévez]]

¿Tienes alguna propiedad rara configurada en el DbGrid?
A mi me funciona perfectamente ese código.