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