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);