这个问题难不难？（50大洋送上）(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
  L: Integer;
  Con: TWinControl;
begin
  L := Button1.Left;
  Con := Button1.Parent;
  While Con.Handle <> Form1.Handle do
    begin
      Con := Con.Parent;
      L := L + Button1.Parent.Left;
    end;
  ShowMessage(IntToStr(L));
end;