program testlog;

uses systemlog,sysutils;

procedure dotest;

var i : longint;
    prefix : ansistring;

begin
  i:=GetProcessID;
  prefix:=format('testlog[%d] ',[i]);
  // prefix will be prepended to every message now.
  openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
  for i:=1 to 10 do
    syslog(log_info,'This is message number %d'#10,[i]);
  prefix:='';
end;

begin
  dotest;
end.