LAN Web TCP Delphi

Title: check if we are running in a terminal client session?
function IsRemoteSession: Boolean;
const
sm_RemoteSession = $1000; { from WinUser.h }
begin
Result := GetSystemMetrics(sm_RemoteSession) 0;
end;