Hola, para enviar al puerto paralelo puedes abrirlo como un TFile, y luego ir 'escribiendo' desde alla. Seria algo asi (de memoria)
Código Delphi
[-]
var
f : TFile;
begin
f := AssignFile('LPT1:',fsOpenShareWrite);
WriteLn(f,#13#10+'enviando estos caracteres');
CloseFile(f);
end;