Я понял ты имел введу так
Код:
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+................+и так до конца..
что делать?