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