var
  Printer: THandle;
  N : Cardinal;
  C : POverlapped;

begin
  //Открываем порт принтера для записи
  Printer := CreateFile(PChar('LPT1'),
  GENERIC_READ or GENERIC_WRITE, 0, nil,
  OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);

  //Печатаем слово 'Hello World';
  WriteFile(Printer, 'Hello World', 11, N, c);
  //Закрываем порт
  CloseHandle(Printer);