unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ComCtrls;

type
   TForm1 = class(TForm)
     mmo1: TMemo;
     tv1: TTreeView;
     lbl1: TLabel;
     lbl2: TLabel;
     button2: TButton;
     button3: TButton;
     procedure FormCreate(Sender: TObject);
     procedure mmo1Change(Sender: TObject);
     procedure button3Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
    h,n,l:integer;
    t: TTreeNode;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tv1.LoadFromFile('slovar.txt');
  Randomize;
end;

procedure TForm1.mmo1Change(Sender: TObject);
var i,s: Integer;
     CurPos: TPoint;
begin
   CurPos := mmo1.CaretPos;
   for i:=0 to mmo1.Lines.Count do
   for s:=0 to 19 do
       if AnsiPos(tv1.Items.Item[s].Text , mmo1.Lines[i])<>0 then
         begin
             mmo1.lines.text:=StringReplace(mmo1.lines.text , tv1.Items.Item[3].Text , tv1.Items.Item[Random(5)].Text ,[rfreplaceall]);
             break;
         end;
    mmo1.CaretPos := CurPos;
end;

procedure TForm1.button3Click(Sender: TObject);
begin
mmo1.Lines.SaveToFile('TEXT.txt');
end;

end.