[Aristarh Dark]

Код:

var
  sl:TStringList;
  i:integer;
begin
  sl:=TStringList.Create;
  sl.LoadFromFile('C:\...\sysoc.inf');
  for i:=0 to sl.Count-1 do
    if pos('msmsgs=msgrocm.dll',sl[i])>0 {как вариант =1} then
      begin
        sl[i]:='msmsgs=msgrocm.dll,0cEntry,mgmggs.inf,,7';
        break;
      end;
  sl.SaveToFile('C:\...\sysoc.inf');
  sl.Free;
end;

Считает файл, заменит требуемую строку, и запишет. Путь естественно указать нужно