A ver, os voy a poner el fragmento de código:
Recuerdo que la cadena para abrir el cajon es: #27+'p0'+#100+#0
var
cajon : String;
F : TextFile;
Ini : TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
AssignFile(F, 'LPT1');
Rewrite(F);
cajon := FicheroIni.ReadString('LPT1', 'CAJON', '-');
WriteLn(F, cajon);
end;
WriteLn no me abre el cajon, sino que me escribe el texto en la impresora.
Gracias por vuestra paciencia
