String ist nicht ereiterbar!!

[wicht]

So solltes klappen..

Delphi-Quellcode:

function TForm3.GetUser: string;
var
  Size : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
  begin
    SetLength(Result, Size);
    Result := Result + ' ist der aktuelle Benutzer!'; // <<------
  end else
    Result := '';
end;

HTH