C nach Delphi übersetzen

[turboPASCAL]

Hi,

durch Luckies Tut. Drucken mit der Windows-API und dem Mangel das es kein Win 9x unterstützt, bin ich auf folgenden C-Code gestossen, in diesem taucht die Funktion strtok() auf.
Leider werde ich aus dem Code nicht schlau was die Funktion macht, wer kann helfen ?

Code:

// Printer name precedes first "," character.
      strtok(cBuffer, ",");

Und wie lässt sich diese Codestelle umsetzen ?

Code:

BOOL DPGetDefaultPrinter(LPTSTR pPrinterName, LPDWORD pdwBufferSize)
{
  PRINTER_INFO_2 *ppi2 = NULL;

// var
//   ppi2: ^PRINTER_INFO_2;

  // ... 

  // Allocate enough space for PRINTER_INFO_2.
  ppi2 = (PRINTER_INFO_2 *)GlobalAlloc(GPTR, dwNeeded);