Hi Hendra ... this code does what you ask for ... I found it in this forum :

var
  I: Integer;
  ASessionList: TList;
begin
  unimemo1.Lines.Clear;
  ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList;
  try
    for I := 0 to ASessionList.Count - 1 do
    begin
      UniMemo1.Lines.Add(TUniGUISession(ASessionList[I]).UniApplication.RemoteAddress);
    end;
  finally
    UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
  end;