Problema con codigos de escape

[Cecil]

Hola a todos, tengo un problema, y es que mi impresora de tickets (SAMSUNG BIXOLON SRP-275) al imprimir, lo hace y termina con medio papel dentro, con lo que tengo que darle al botoncito para que vaya sacando el rollo y finalmente cortarlo. Pero me gustaría hacerlo a través de códigos de escape, que no son cosa sencilla porque directamente no me sale . Os pego el código que uso:

type
  TDatos = Record
  nLong : Integer;
  bDatos : Array[0..255] of byte;
end;

procedure CodigoEscape(sImpresora: String; sCodigo: String);
var
  PtImpresora: TPrinter;
  DtCadena : TDatos;
Begin
  PtImpresora := TPrinter.Create;
  try
    PtImpresora.PrinterIndex := PtImpresora.Printers.IndexOf( sImpresora );
    PtImpresora.BeginDoc;
    DtCadena.nLong := Length( sCodigo );
    StrPCopy( @DtCadena.bDatos, sCodigo );
    Escape( PtImpresora.Handle, PASSTHROUGH, 0, @DtCadena, nil );
    PtImpresora.EndDoc;    
  finally
    FreeAndNil( PtImpresora );
  end;
end;

Simplemente no funciona, y me gustaría saber si hago algo mal, o no se. Un saludo y mil gracias.