[Electronic_Arts]

Я понял ты имел введу так

Код:

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] := Memo1.Lines[i] + Edit1.text;
         Break;
      end;

но оно не добавляет по буквам
продолжительность добавления
E+El+Ele+Elec+Elect+................+и так до конца..
что делать?