[solemno]

Intente con lo siguiente pero no pasa nada... alguna sugerencia?

Código Delphi [-]
Procedure TForm1.PWrite(s:String);
var PT :Integer;
     P   :Pchar;
Begin
   PT := FileOpen('lpt1',fmOpenWrite ); // Abrimos la impresora como un archivo
   P   := PChar( s ); //convertimos la  cadena a un PChar
   FileWrite(PT,P^,length( s )); //escribimos a la impresora
   FileClose(PT);//cerrar el archivo de la impresora
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     PWrite(#11);//intenté con diferentes pero no hace nada
end;