[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  S: String;
  CT : TStringList;
begin
  S := edit1.text;
  CT := TStringList.Create;
  CT.LoadFromFile('c:\code.tbl.txt');
  S := StringReplace(S, #13, '', [rfReplaceAll]);
  S := StringReplace(S, #10, '', [rfReplaceAll]);

  for I := 0 to CT.Count-1 do begin
    S := StringReplace( S,
      CT.Values[CT.Names[i]],
      '<$'+CT.Names[i]+'>',
      [rfReplaceAll]
    );

  // Òóò äîëæíî áûòü ïðîäîëæåíèå ïàðñèíãà, íî óæå ÷òî-òî íå òàê

  end; ShowMessage(S);
  CT.Free;
  end;