[Decoding]

Код:

// Заменить часть строки, содержащей подстроку из Edit
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Edit1.Text, 'Новое значение', [] );
         Break;
      end;
end;

// Заменить всю строку, содержащей подстроку из Edit
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      if Pos( Edit1.Text, Memo1.Lines[i] ) > 0 then
      begin
         Memo1.Lines[i] := StringReplace( Memo1.Lines[i], Memo1.Lines[i], 'Новое значение', [] );
         Break;
      end;
end;