// Частично позаимствовано из SysUtils.SysErrorMessage

function FormatWinapi(const Patt: string; const Args: array of const): string;

var

  Buffer: PChar;

  Len, i: Integer;

  InternalArgs: array of Pointer;

begin

  SetLength(InternalArgs, Length(Args));

  for i := Low(InternalArgs) to High(InternalArgs) do

    InternalArgs[i] := Pointer(Args[i].VPointer);

  Len := FormatMessage(

    FORMAT_MESSAGE_FROM_STRING or

    FORMAT_MESSAGE_ARGUMENT_ARRAY or

    FORMAT_MESSAGE_ALLOCATE_BUFFER, PChar(Patt), 0, 0, @Buffer, 0, Pointer(InternalArgs));

  try

    { Convert to Delphi string }

    SetString(Result, Buffer, Len);

  finally

    { Free the OS allocated memory block }

    LocalFree(HLOCAL(Buffer));

  end;

end;

  MemLog.Lines.Add(FormatWinapi('Мама мыла %1.%nВымыто %2!.2d!%%.%nApplication находится по адресу %3!p!.', ['раму', 9, Application]));

Мама мыла раму.

Вымыто 09%.

Application находится по адресу 7EF49E00.