Problem mit String

[Mazen]

Ich merk schon, es liegt wohl doch nicht an mir sondern irgendwie an Delphi...
Danke für alle eure Vorschläge, leider funktionier jedoch keiner davon :/
Wie immer fehlt das letze Hochkomma... Oo

Hier mal ein größerer Ausschnitt, vielleicht leigt der Fehler ja woanders:


Die funktion hier hab ich hier aus dem Forum kopiert...

Code:

function TfrmMain.getCurrentUserName(): string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

Code:

userName := getCurrentUserName;
  ShowMessage('benutzer = '''+userName+'''');