Fórum Erro registro:´registro´ needs finalization - not allowed .. #240471

procedure TForm1.btnsalvarClick(Sender: TObject);
type registro=record
        crm:integer;
        nome:string;
        endereco:string;
        bairro:string;
        municipio:string;
        uf:string;
        cep:string;
      end;
var etiqueta:registro;
     arq:file of registro;

begin
AssignFile( arq,´c:\programas\etiqueta\´+ txtsalvar.Text+´.DAT´);
Rewrite(arq);
Reset(arq);
qryconsulta.First;
while not(qryconsulta.eof)do
 begin
     if qryconsulta[´CRM´]<>NULL THEN
       etiqueta.crm:=qryconsulta[´CRM´];
      if qryconsulta[´NOME´]<>null then
       etiqueta.nome:=qryconsulta[´NOME´];
      if qryconsulta[´ENDERECO´]<>null then
       etiqueta.endereco:=qryconsulta[´ENDERECO´];
      if qryconsulta[´BAIRRO´]<>null then
       etiqueta.bairro:=qryconsulta[´BAIRRO´];
      if qryconsulta[´MUNICIPIO´]<>null then
       etiqueta.municipio:=qryconsulta[´MUNICIPIO´];
      if qryconsulta[´UF´]<>null then
       etiqueta.uf:=qryconsulta[´UF´];
      if qryconsulta[´CEP´]<>null then
       etiqueta.cep:=qryconsulta[´CEP´];

      Write(arq,etiqueta);
      qryconsulta.Next;
  end;
CloseFile(arq);
end;