En hurtiger måde til at finde og indsætte en linje

Hej
Jeg har en text fil med ca 378000 linjer, omkring 3 til 6 steder står der OXXXX
Hvordan finder jeg hurtigt de linjer og indsætter en linje?.
jeg har lavet noget men det går alt for langsomt




For Index := 0 To RichEdit1.Lines.Count-1 Do
    If  copy(RichEdit1.lines[Index], 1,1) = 'O' Then
    Begin
      If  copy(RichEdit1.lines[Index+1], 1, 12) = '(Fremstillet' Then
      Begin
        RichEdit1.lines.Delete(Index+1);
        RichEdit1.Lines.Insert(Index+1,'(Fremstillet i ProE d. '
        + DateToStr(Date) + ' kl. '+ TimeToStr(Time)+')');
      end
        else
        Begin
          RichEdit1.Lines.Insert(Index+1,'(Fremstillet i ProE d. '
          + DateToStr(Date) + ' kl. '+ TimeToStr(Time)+')');
        end;
    end;