[firebase-br] off topic - IF Que não Funciona

[Developer Marketing Rapido]

Pessoal,
criei a seguinte rotina, para importar um arquivo texto,

procedure TfrmImportaDestinatarios.BitBtn1Click(Sender: TObject);
var
      Txt : TextFile;
      Entrada : String;
      Arquivo : TStringList;
      registro :  Integer;
      varEmail : string;
      varErro : Integer;
begin
      If OpenArquivo.Execute then
      begin
            dm.qEmails.Active:=true;
            AssignFile(Txt,(OpenArquivo.FileName));
            Reset(Txt);
            Arquivo := TStringList.Create;
            Arquivo.LoadFromFile(OpenArquivo.FileName);
            ProgressBar1.Max:= Arquivo.Count;
            Registro :=0;
            varErro  :=0;


     while not Eoln(Txt) do
           begin
            varEmail :=trim(Copy(Entrada,0,999));

              if ValidaEMail(varEmail) then
                  begin
                        Readln(Txt, Entrada);
                        dm.qEmails.Append;
                        DM.qEmails.FieldByName('email').Value:= varEmail;
                        DM.qEmails.FieldByName('status').Value:= 1;
                        dm.qEmails.FieldByName('nome').value:='Importado por
Arquivo Txt';
                        dm.qEmails.FieldByName('grupo').Value:=1;
                        dm.qEmails.Post;
                        Registro := Registro +1;
                        ProgressBar1.Position:= Registro;
                        end
                    else

                              showmessage(varEmail);
                              varErro := varErro+1;
                 end ;
           end;

              ShowMessage(IntToStr(Arquivo.Count));
              dm.qEmails.CommitAction;
              CloseFile(Txt);
              DM.qEmails.Close;
              label1.Caption:=IntToStr(varErro);
            end;


end.




Porem quando ele var no varErro logo abaixo do showmessage, ele fica ali
somando e nao sai para continuar a importação, sera que alguem pode dar uma
luz?


Obrigado.
-- 
Pablo Farias
Analista de Sistemas
developer em marketingrapido.com.br