En lo personal uso LPT, me da excelentes resultados.
un ejemplo
Código Delphi
[-]
var
Archivo: TextFile;
begin
AssignFile(Archivo, 'LPT3');
Rewrite(Archivo);
Writeln(Archivo, 'Esto es una prueba');
CloseFile(Archivo);
end.
Nota: Las computadoras modernas ya no traen los puertos paralelo ni serial.
Así debes compralos por aparte e instalarlos. Si es así, usa el puerto LPT3.