[Electronic_Arts]

Мне скорее всего подходит вот этот

Код:

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], Edit1.Text, 'Новое значение', [] );
         Break;
      end;
end;

а как там сделать так что бы изменения добавились с Edit1.Text
я изменил там 'Новое значение' на Edit1.Text и поставил процедуру на KeyPress что бы добавления изменились при нажатии клавиш (добавления по буквам) но что то не получается ЧТО ДЕЛАТЬ?