Código Delphi [-] repeat readln(fichero,saux); application.ProcessMessages; until LeftStr(saux, 2)='00';
repeat readln(fichero,saux); application.ProcessMessages; until LeftStr(saux, 2)='00';