有关ControlAtPos的问题(50分)

我在一个form1上放了一个按钮（button1,它的left:=0,top:=0），
然后用以下程序判断它的存在,结果button2和showmessage都没有
反应，请问是怎么回事（如果有代码更好）。

我的E-mail:j5203@sina.com

procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.ControlAtPos(point(0,0),true)=button1 then
{或者是if form1.ControlAtPos(clienttoscreen(point(0,0)),true)=button1 then}
begin
button2.Top:=button2.Top-5;
button2.Left:=button2.Left-5;
showmessage('button1');
end;
end;

试一试
if TButton(form1.ControlAtPos(point(0,0),true))=button1 then

接受答案了.