procedure LogError(error:pchar; log_type: DWORD);
var
   ThId:  Cardinal;
   lpMsgBuf: PChar;
   s:string;
begin
  FormatMessage(......,lpMsgBuf,.... ); //Формирую PChar с сообщением

   lThread:=CreateThread(nil, 0 ,@LogThread,lpMsgBuf, 0 ,ThID);
   WaitForSingleObject(lThread,INFINITE);
   CloseHandle(lThread);
end;

function LogThread(error:pchar):DWORD;stdcall;// Собственно, ф-ция потока, к-рая и записывает сообщ. в файл.

 LogError('Starting service', 0 );
 if not StartServiceCtrlDispatcher(DispatchTable[ 0 ])
 then LogError('StartServiceCtrlDispatcher Error',  0 );