[Casimiro Notevi]

¿Y así?

Código Delphi [-]
  Var
    cajon : Text;   
  Begin
    assignFile(cajon, 'com1');
    rewrite(cajon);  
    try
      write(cajon,#27#112#0#25#250);      
    finally
      Close(cajon);  
    end;
  end;