[Neftali [Germán.Estévez]]

Supongo que necesitas GetUserName y GetComputerName.

Código Delphi [-]
var
  dw : Dword;
  Buffer:array[0..MAX_PATH] of char;
begin
  dw := MAX_PATH;
  // usuario
  if GetUserName(Buffer, dw) then begin
    Self.FUserName := Buffer;
  end;
  // máquina
  dw := MAX_PATH;
  if GetComputerName(Buffer, dw) then begin
    Self.FComputerName := Buffer;
  end

EDITO: Se me adelantaron...