For everybody that needs the ToolButton position:

type
  TToolButtonAccess = class(TToolButton);
 
function ToolButtonScreenPos(AToolButton: TToolButton): TPoint;
begin
  GetDCOrgEx(TToolButtonAccess(AToolButton).Canvas.Handle, Result);
  Inc(Result.X, AToolButton.Left);
  Inc(Result.Y, AToolButton.Top);
end;

Hugs!

For everybody that needs the Speedbutton position:

type
  TSpeedButtonAccess = class(TSpeedButton);
 
function SpeedButtonScreenPos(ASpeedButton: TSpeedButton): TPoint;
begin
  GetDCOrgEx(TSpeedButtonAccess(ASpeedButton).Canvas.Handle, Result);
  Inc(Result.X, ASpeedButton.Left);
  Inc(Result.Y, ASpeedButton.Top);
end;

Hugs!