uses
  DbiTypes, DbiProcs, DbiErrs;

procedure Whatever;
var
  szVar: array[0..200] of char;
begin
  DbiGetNetUserName(szVar);
  edit1.text := szVar;
end;