codigo de barras en un ticket

[rebollo75]

hola amigos. tengo un pequeño problema, como casi cada uno de los que entramos aqui. tengo que imprimir un codigo de barras en una impresora de ticket termica samsung srp-350 que por supuesto imprime codigo de barras.

en los codigos de control pone:

CONTROLCODIGODE CODIGOSHEXADECIMALFUNCION<GS> k m … NUL1D 6B m… NULimprime codigo de barras<GS> k m n …1D 6B m n …

he probado con esto:

var F: TextFile;
begin
AssignFile(F,'COM1');
Rewrite(F);
write(F,chr(29)+ chr(104)+ '1' + chr(00)); //codigo de barras
write(F, 'prueba');
writeln(F,chr(29)+ chr(86)+ '1'); //corta el papel
CloseFile(F);
end;

he probado con otras maneras pero no me sale lo que pongo en codigo de barras. he estado leyendo algo de generadores de codigos de barras. tengo que poner uno? como seria todo eso?

muchas gracias.