Sesje i ciasteczka - jak je obsłużyć?

Witam,
szukam jakiegoś prostego przykładu/ tutoriala jak obsłużyć w indy 10 sesje i ciasteczka?

logowanie użytkownika + id sesji itp.

Zrobiłem prosty serwer http i chciałbym aby można było się do niego logować tak jak to jest w php.

W internecie taki kod znalazłem ale nie wiem czy jest właściwy i wystarczający to tego co chcę osiągnąć:

    procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestIno: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    var
      Cookie: TIdCookie;
      LoginName: string;
    begin
      Cookie := ARequestInfo.Cookies.Cookie['LoginName'];
      if Cookie <> nil then LoginName := Cookie.Value;
      ...
      with AResponse.Cookies.Add do
      begin
        CookieName := 'LoginName';
        Value := LoginName;
        Path := '/';
      end;
      ...
    end;