função aninhada (nested funcion).

[fortesm]

Centraliza criação.
Reduz duplicação.
Mantém escopo local.
Não alterar comportamento.
Mantém DRY (Dont Repeat Yourself).

[fortesm]

Pequena melhoria adicional (opcional, mas importante mas dependo de uma maior aprovação).
Posso deixar ainda mais limpo separando a lógica de recuperação, assim:

function TryGetSession(out ASession: TRALWebSession): Boolean;
begin
  Result := False;
  vSession := ARequest.Params.GetKind[RAL_SESSION, rpkCOOKIE];

  if vSession <> nil then
  begin
    vWesSessionName := vSession.AsString;
    ASession := TRALWebSession(FSessions.ObjectByItem(vWesSessionName));
    Result := ASession <> nil;
  end;
end;

E o fluxo:

if not TryGetSession(vWebSession) then
  vWebSession := CreateNewSession
else
  vWebSession.LastDate := Now;