[icWasya]

ну примерно так
На форме - Memo1, Edit1 и Label1
Кликаешь на Memo1
переходишь в Object Inspector на вкладку Events
Дважды кликаешь на OnChange
Дельфи должна перейти в редактор кода
Там пишешь

Код:

procedure TForm1.Memo1Change(Sender: TObject);
var 
  R,M,E:String;
  I:Integer;
begin
  R:=Edit1.Text;
  for I:=0 to Memo1.Lines.Count-1 do begin
    M:=Memo1.Lines[i];
    E:='('+IntToStr(I+1)+');
    R:=StringReplace(R,E,M,[rfReplaceAll]);
  end;
  Label1.Caption:=R;  
end;

затем на форме кликаешь на Edit1
переходишь в Object Inspector на вкладку Events
В строке OnChange нажимаешь стрелочку вниз, и из списка выбираешь Memo1Change
должно работать