Another solution to remove the focus from a VCL control is DeFocusControl:

procedure TSomething.XTrackBarEnter(Sender: TObject);
begin
   DefocusControl(XTrackBar, True);
end;