Código Delphi [-] MessageDlg(Format('x=%d y=%d', [Button1.ClientOrigin.X, Button1.ClientOrigin.Y]), mtInformation, [mbOK], 0);
MessageDlg(Format('x=%d y=%d', [Button1.ClientOrigin.X, Button1.ClientOrigin.Y]), mtInformation, [mbOK], 0);