String ist nicht ereiterbar!!

[TitanNano]

meinst du die Funktion die den Nutzer Namen aus liest??

Delphi-Quellcode:

function TForm3.GetUser: string;
var
  Size : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;