两个小问题（其实不值100分）

Question

两个小问题（根本不值100分）   问题一：
   delphi(或pascal)的延迟时间函数是什么，，，，
   
   问题二：我在一个image控件上（image1)。排放了另一些image控件(如image2,image3)，我想把image2,image3的图形图像，复制到image1中去。并且
复制的位置和摆放控件位置一样，也就是想合并图层（说法不准确），保存成新的文件如何实现阿。解决后付满分

Answer 1

sleep();
image1.picture.assigned(image2.picture); //合并图层的忘了

Answer 2

const TIMEDELAYSECONDS=2000;  //延迟2000毫秒
var
  TimeCounter:DWORD;TimeCounter:=GetTickCount;
while GetTickCount-TimeCounter《TIMEDELAYSECONDS do
   Application.ProcessMessages;

Answer 3

sleep(XXX);//XXX为integer,单位：毫秒