Problema con un STRING

[Tecnic2]

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