unit CHDebug;

interface
uses
  Windows, SysUtils;

procedure DebugStr(const AFormat: string; const Args: array of const);

implementation

procedure DebugStr(const AFormat: string; const Args: array of const);
begin
  OutputDebugString(PChar(Format(AFormat, Args)));
end;

end.