procedure TForm1.Button5Click(Sender: TObject);
var cc1,cc2: TControlCanvas;
    i,j:integer;
begin
if (MediaPlayer1.FileName='') then Exit
  else
  cc1:=TControlCanvas.Create;
  cc2:=TControlCanvas.Create;
  cc1.Control:=Panel1;
  cc2.Control:=Image1;
  for i := 0 to Panel1.Width do
    for j := 0 to Panel1.Width do
      cc2.Pixels[i,j]:=cc1.Pixels[i,j]; 
end;

Form3.Show;
Screen:=TBitmap.Create;
Screen.Width:=Form2.Width;
Screen.Height:=Form2.Height;
Form3.Image1.Width:=Screen.Width;
Form3.Image1.Height:=Screen.Height;
hWinDC := GetWindowDC(Form2.Handle);
BitBlt(Screen.Canvas.Handle,0,0,Screen.Width,Screen.Height,hWinDC,0,0,SRCCOPY);
Form3.Image1.Picture.Bitmap:=Screen;

...
...
...
procedure TForm1.Button7Click(Sender: TObject);
begin
form4.show;
Form4.Image1.Width:=Form4.Width;
Form4.Image1.Height:=Form4.Height;
Timer2.Enabled:=True;
Timer2.Interval:=Strtoint(edit1.Text);
Bird:=TBitmap.Create;
CloseBird:=TBitmap.Create;
Bird.LoadFromFile('./pten.bmp');
CloseBird.LoadFromFile('./birdclose.bmp');
form4.Image1.Picture.Assign(Bird);
form4.Image2.Picture.Assign(CloseBird);
Form4.Image1.Visible:=True;
Form4.Image2.Visible:=False;
end;
...
...
...
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form4.Image2.Visible:=True;
Timer3.Interval:=strtoint(form1.Edit1.text);
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
//Form4.Image1.Visible:=False;
Form4.Image2.Visible:=False;
end;
...