아래처럼 직접 LPT1으로 출력하는것이 원래 느린지...한줄 출력하고 1초있다가 다음줄 출력하고 원래 이런가요?


procedure TForm1.Button1Click(Sender: TObject);
var OutFile : TextFile ;
begin

    AssignFile(OutFile, 'LPT1');
    Rewrite(OutFile);
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    Writeln(OutFile, 'VACCUTAINER SST 5ML   10,000,000         100,000,000      1,000,000');
    CloseFile(OutFile);

end;