Esto debiera de funcionarte con una Epson conectada al COM1, si está conectada a otro puerto; LPt1, Com2, cambialo:
Código Delphi
[-]
Var
Impressora: TextFile;
Begin
AssignFile(Impressora,'COM1');
Writeln(Impressora,chr(27)+chr(112)+chr(0)+chr(60)+chr(240));
end;
En cualquier caso en el manual de dicha impresora te tienen que venir las secuencias de escape que soporta, no sería más que modificar el ejemplo.
Un Saludo.