Nome do usuário logado no Windows com Delphi

Olá, Boa Tarde Pessoal...
Hoje vamos ver como saber o nome do usuário logado no Windows com o auxilio do Delphi.

1º - Declare a seguinte função:
   Function NomeUsuario: String;

2º - Na área de implementações, implemente-a da seguinte maneira:
   function TForm1.NomeUsuario: String;
   var
     lpBuffer : Array[0..20] of Char;
     nSize : dWord;
     mRet : boolean;
     erro : dWord;
   begin
     nSize := 120;
     mRet := GetUserName(lpBuffer, nSize);
     if mRet then
     begin
       Result := lpBuffer
     end
     else
     begin
       erro := GetLastError();
       MessageDlg('Ocorreu o erro ' + IntToStr(erro) + ' ao procurar o nome logado no computador.',
                  mtError, [mbOk], 0);
       Result := '';
     end;
   end;

3º - Para utilizar a função, chame-a da seguinte forma:
   nomeDoUsuario := NomeUsuario;

    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE3.

    Fonte.: Algum lugar da Internet.

Esta foi a dica de hoje, se for útil, comentem.
Se você tem uma dica interessante, pode postar nos comentários.
Atenciosamente
Dica Chave.