[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;