Atualizar impressão no delphi

Bom dia a todos, tenho um sistema de ordem de serviço, quando eu quero imprimir um registro eu imprimo tudo que esta nos EDIT'S uma vez só, quando quero imprimir a segunda vez com sistema aberto a impressão dá erro..acho que porque não esta atualizando... oque faço?Só quando eu saiu do sistema e mando imprimir que imprime normal.Erro: Acess violationo codigo é esse:var LINHAS: TextFile;begin AssignFile(LINHAS,'LPT1'); Rewrite(LINHAS); begin Writeln(LINHAS,'Informática'); Writeln(LINHAS,'RUA: Primo, 411'); Writeln(LINHAS,'Tel:(00) 0000-0000'); Writeln(LINHAS,''); Writeln(LINHAS,'NOME: ' + os.Enome.Text+' '+'EQUIPAMENTO: '+ os.Eequipamento.Text); Writeln(LINHAS,'TELEFONE: ' + os.Etel.Text); Writeln(LINHAS,'MARCA: ' + os.Emarca.Text); Writeln(LINHAS,'MODELO: '+ os.Emodelo.Text); Writeln(LINHAS,'NºSERIE: ' + os.Enserie.Text); Writeln(LINHAS,'_____________________________________________________________________'); Writeln(LINHAS,''); Writeln(LINHAS, 'DEFEITO:'); Writeln(LINHAS,''+ os.Edefeito.text); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,'____________________________________________________________________'); Writeln(LINHAS,'EMISSAO: '+ os.Ehoje.text+' '+'TECNICO: '+ os.Etecnico.text); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,''); Writeln(LINHAS,'_____________________________________________________________________'); Writeln(LINHAS,''); end; CloseFile(LINHAS); end;