[Decoding]

Народ, хорошь филонить, включайте мозги…

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
begin
   sl := TStringList.Create;
   sl.LoadFromFile( 'c:\test.log' );
   for i := 0 to sl.Count-1 do
      if Pos( 'R0021004', sl[i] ) > 0 then
      begin
         // Нашли, делаем что нужно
      end;
   sl.Free;
end;