Delphi Testing if in a Terminal Services enviroment

//returns true if running under Windows Terminal Services
function TRemoteSession.IsRemoteSession: boolean;
(*
const  sm_RemoteSession = $1000;
*)
begin
  result := GetSystemMetrics(sm_RemoteSession) <> 0;
end;