图片问题，请大家指教 ( 积分: 200 )

我正在做一个报警程序，当发生报警时需要在一张图片的指定坐标上显示另一张小的图片，请各位指教。

我正在做一个报警程序，当发生报警时需要在一张图片的指定坐标上显示另一张小的图片，请各位指教。

首先你要知道是否报警。然后在图片的指定坐标。这个坐标能不能用TOP，LEFT。来决定呀，显示另一张小图片就不难了吧，

procedure TForm1.Button1Click(Sender: TObject);
Var
Image2 : TImage;
begin
If Assigned(Image2) Then
Image2 := TImage.Create(Nil);
Image2.Parent := Self;
Image2.BringToFront;
Image2.Top := Image1.Top + 10;
Image2.Left := Image1.Left + 10;
Image2.Picture.LoadFromFile('C:/Test.jpg');
Image2.AutoSize := True;
end;

感谢两位指点。