How to know whoever is login and running the Webapplication ?

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;