Fórum Lendo arquivo de texto #457012

procedure TForm1.BitBtn9Click(Sender: TObject);
var
  Arq   : TextFile;
  Texto : string;
  Txt   : TStringList;
begin
  memo1.clear;
  Txt := TStringList.Create;
  Txt.Delimiter := ';';
  try
    Screen.Cursor := crHourGlass;
    AssignFile(Arq,'Caminho do arquivo');
    Reset(Arq);

    if not EOF(Arq) then
    repeat
      ReadLn(Arq, Texto);

      texto := StringReplace(StringReplace(Texto,' ','*',[rfReplaceAll]),'#32',' ',[rfReplaceAll]);

      Txt.DelimitedText := Texto;

      Memo1.Lines.Add(' insert into grupo (cod_empr, cod_grup, descricao, sigla) values ('+
                        '1,'+
                        txt[0]+','+
                        ''''+copy(stringreplace(Txt[1],'*',' ',[rfReplaceAll]),1,40)+''','+
                        ''''+copy(stringreplace(Txt[3],'*',' ',[rfReplaceAll]),1,3)+''');');

      Memo1.Lines.Add(' ');

    until EOF(Arq);
  finally
    Closefile(Arq);
    Screen.Cursor := crDefault;
  end;
  FreeAndNil(Txt);

end;

if AnsiPos('124', linha) > 0 then
begin
  ShowMessage('Encontrou 124, na posição : ' + IntToStr(AnsiPos('124', linha); //aqui coloque o código de encontrado
end
else
begin
  ShowMessage('Não encontrou 124'); //aqui coloque o código de não encontrado.
end;

if(IOResult <> 0) then
begin
  while (not eof(arq)) do 
  begin
    readln(arq, linha); // [ 6 ] Lê uma linha do arquivo
  end;
end;
//se achar o código 124
if (linha = '124') then
begin

begin
 A:=false;
 Ch := edtRecebeCaminho.Text;
 Ch2 := edtDestino.Text;
 sc_vt := FindFirst(Ch + '???????????????????.???', faArchive, sc_vai);

 While sc_vt = 0 Do
 Begin
  If Length(sc_vai.Name) < 20 Then
  Begin
   sc_vt := FindNext(sc_vai);
   Continue;
  End;
  AssignFile(arq, edtRecebeCaminho.Text + sc_vai.Name);
  Reset(arq);   // [ 3 ] Abre o arquivo texto para leitura

  while not eof(arq) do
  begin
   readln(arq, linha); // [ 6 ] Lê uma linha do arquivo
   T:= copy(linha, 1, 23);
   if ( T = ('ALERTA : Cupom Fiscal j')) then
   begin
    T:= copy(linha, 27, 30);
    if( T = ('registrado no sistema na linha')) then
    begin
     A:=true;
    end;
   end;
  end;
  CloseFile(arq);
  if A=true then
  begin
   Ch:=Ch + sc_vai.Name;
   Ch2:=Ch2 + sc_vai.Name;
   MoveFile(PCHAR(Ch),PCHAR(ch2));
   showmessage('Arquivos Separados');
  end;
  sc_vt:= FindNext(sc_vai);
 end;
end;