A função abaixo retorna true se estiver conectado e false 
caso contrário.

function RemoteConnection: boolean;
const
  Key = '\System\CurrentControlSet\Services\RemoteAccess';
  Value = 'Remote Connection';
var
  Reg: TRegistry;
  Buffer: DWord;
begin
  Result := false;

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(Key, false) then
    begin
      Reg.ReadBinaryData(Value, Buffer, SizeOf(Buffer));
      Result := Buffer = 1;
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

Exemplo de uso

Para testar a função coloquei um Timer e um Label no 
formulário. No evento OnTimer do Timer escrevi o 
código abaixo.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if RemoteConnection() then
    Label1.Caption := 'Conectado'
  else
    Label1.Caption := 'Desconectado';
end;