Fórum Regravacao de arquivo texto #459094

procedure TForm1.Button1Click(Sender: TObject);
var
   Arquivo: TextFile; Texto, line : string;
begin
   Memo1.Clear;
   AssignFile(Arquivo, 'C:\Sintegra.Txt');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
        ReadLn(Arquivo, Line);
        Texto := Line;
        if pos('75',texto) > 0 then
           Memo1.Lines.Append(line);
      end;
   CloseFile(Arquivo);

end;