O Spooler SubSystem vai ser encerrado

Olá a todos
Quando imprimo directo para a porta no win xp sp2 da um Erro
´O Spooler SubSystem vai ser encerrado´

Algem pode dar uma ajudinha. Obrigado.

var
F: TextFile;
begin
AssignFile(F, ´COM1´);
Rewrite(F);

try
WriteLn(F, ´bla bla bla .´);
finally

CloseFile(F);
end;