Evitar Parpadeo

[yusnerqui]

Hola. Quiero hacer en Delphi algo parecido al menú búsqueda de este Foro, es decir tengo un botón y cuando se le de clic estoy desplegando un TPanel con un Label, un Edit y un botón, mi dificultad es que mientras se está desplegando el Panel el Label no para de parpadear. Cómo puedo evitar ese parpadeo?.

Aquí les pongo el código que utilizo.

Código Delphi [-]
procedure TReport.GuardarClick(Sender: TObject);
 var i : byte;
begin
//MGuardar es el TPanel
 MGuardar.Width := 0;
 MGuardar.Height := 0;
 MGuardar.Visible := True;
 for i := 1 to 40 do
 begin
   MGuardar.Height:=MGuardar.Height+1;
   MGuardar.Width:=MGuardar.Width+6;
   MGuardar.Update;
   Application.ProcessMessages;
 end;
 Edit3.SetFocus;
end;

Acepto cualquier recomendación

De antemano mil gracias