Hilfe beim Übersetzen von C zu Delphi

[SlpLow]

Delphi-Quellcode:

function SysErrorMessageEx(ErrorCode: Longint): string;
var
  Len: Integer;
  Buffer: array [0 .. 4095] of char;
begin
  Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or
    FORMAT_MESSAGE_IGNORE_INSERTS, nil, ErrorCode, 0, Buffer,
    SizeOf(Buffer), nil);
  SetString(result, Buffer, Len);
  if (Len = 0) then
    result := Format('Code: ' + IntToStr(GetLastError) + ' - ' +
      SysErrorMessage(GetLastError), [SysErrorMessage(GetLastError)]);
  result := Format('Code: ' + IntToStr(GetLastError) + ' - ' +
    SysErrorMessage(GetLastError), [ErrorCode, result]);
end;

.....
NewInfoBuf := PWideChar(aall);
if (not WIMSetImageInformation(ImageHandle, NewInfoBuf, pre)) then
begin
  ErrCode:=SysErrorMessageEx(GetLastError);
  ShowMessage('Error set info ' + ErrCode);
  Exit;
end
  else....

Failed to parse the requested XML data!

Was mache ich hier falsch?