Nome do usuário na rede

//Para pegar o nome do usuário atual da rede, faça o seguinte:

function NetUser : string;
var
szNetName: array [0..48] of char;
iResult: DBIResult;
begin
iResult := DBIGetNetUserName (szNetName);
if iResult <> DBIErr_None then
DBIError (iResult)
else
Result := StrPas (szNetName);
end;
//Não se esqueça de colocar cláusula Uses do form as units DBIProcs, DBITypes, DB e DBIErrs.