Problema con impresora de tickets

[Drake]

Buenas!, estoy desarrollando un TPV y tengo un problema a la hora de imprimir tickets, cuando imprimo el primer ticket todo bien, pero cuando intento volver a imprimir me da diferentes errores, File not open y RunError(5), el codigo que uso es el siguiente:

Código Delphi [-]
try
AssignFILE(archivo,'COM4');
ReWrite(archivo);
Writeln(archivo,memo1.Text);
finally
System.Close(archivo);
end;

gracias de antemano =)