Delphi - Caja registradora

Hola a todos los grandes de la web del programados y sus citios aledaños, tengo un gran problema, necesito abrir una caja registradora con Delphi y la verdad no tengo ni la màs minima idea d ecomo hacerle, solo se que necesito conectarla a la impresora de Tickets paero hasta ahi he llegado, si alguien sabe como hacerle, le estare sumemente agradecido.

ATTE: Sir Arthur

Estimado Sir Arthur

Con gusto te envío mi función que abre cajón, tengo entendido que los caracteres que se envían a la impresora varían según el modelo de la impresora
en este ejemplo tiene la opcion de abrir con dos tipos de impresora

no olvides que el cajón del dinero va conectado a la impresora.

procedure abrircajon(tipoimp:integer);
var
nPrn:TextFile;
abrir:string;
begin
if tipoimp = 0 then
abrir := #27+#105 // impresora STAR
else
abrir:=#27+#112+#0+#25+#250; // impresora epson
AssignFile(nPrn, 'LPT1');
Rewrite(nPrn);
WriteLn(nPrn,abrir);
CloseFile(nPrn);
end;

Espero haber podido ayudarte