Problema com Criação de Componente Através do Código

var
Panel : TPanel;
begin
inherited;
self.Open;
Panel := TPanel.Create(nil);

if qryGrid.IsEmpty then
begin
Panel.ParentColor := True;
Panel.Brush.Color := clWhite;
Panel.Font.Color := clRed;
Panel.BevelOuter := bvNone;
Panel.Parent := DBGrid1;
Panel.Caption := ´Não foi encontrado nenhum registro.´;
Panel.Top := Round((DBGrid1.Height - Panel.Height) / 2);
Panel.Left := Round((DBGrid1.Width - Panel.Width) / 2);
end
else
begin
//Tentativa 1
Panel.Destroy;
//Tentativa 2
Panel.Free;
//Tentative 3
Panel.Hide;
//Tantetiva 4
Panel.Parent := DBGrid1;
Panel.Visible := False;
end;
end;
Tenho este código porém quando não existe nenhum registro exibe a mensagem, mas quando façõ uma outra consulta que tenha registros logo apóes a consulta que nãoregistro o panel não some do grid. Como devo fazer, para que isso aconteça. Executei as tentativas acima mas nenhuma funcionou, porém a execução passa dentro do bloco else.
Obrigado