这是一段关于timer的代码，请各位帮我解决一下。

var
 I,J,K:Integer;
begin
 if dlg =1 then
  p:=GetCurrentDir+'\fault'+inttostr(Num1+1)+'.bmp';
 if dlg=2 then
  p:=GetCurrentDir+'\F'+inttostr(Num1+1)+'.bmp'; Bmp:=TBitmap.Create;
 Bmp.LoadFromFile(p);
 Bmp.Transparent:=true;
  for K:=0 to MyCAD1.GetShapesCount-1 do
  if MyCAD1.MyShapes[K].Name=Edit1.text  then
  begin
   i:=trunc(MyCAD1.MyShapes[K].getLefttop.X);
   j:=trunc(MyCAD1.MyShapes[K].getlefttop.Y);
   MyCAD1.Canvas.Draw(i,j,Bmp);
  end;
   num1:=num1+1;
   if (dlg=2)and(Num1=4) then
    Num1:=0;
   if (dlg=1)and(Num1=2)then
    Num1:=0;//其中的mycad1是一个控件。代码的意思：查找出一个名称与edit1.text相同的shape.
但是用这段代码查找一个shape,那这个shape上，就会有图片闪动，但是查找第二个时，第一个shape上的图片就不闪了想要实现这样的功能：查找第二个shape，第一个shape上仍然有图片闪动。