Java Script переделать в Delphi

[eduard93]

помогите плз переделать JS в делфи (чтобы было поле для ввода фильма,кнопка, и чтобы это все выводилось в поле Memo), буду очень признателен

PHP код:

// ==UserScript==
// @name     GetDescription from kinopoisk.ru
// @version    3.0.1
// @history    3.0.1 Исправлены ошибки.
// @history    3.0 Первая версия на js.
// @author     Цветцих Дмитрий 
// @include     [url]http://www.kinopoisk.ru/level/1/film/*[/url]
// @include     [url]http://kinopoisk.ru/level/1/film/*[/url]
// ==/UserScript==


var scrname = "Get Description 3.0.1";
var pathToSwf = "http://www.actualcomment.ru/static/swf/clipboard.swf";

function id(a){    return document.getElementById(a)}
function clas(a){return document.getElementsByClassName(a)}


function desc(){
    var inf = clas("info");
    var inf_2 = clas("_reachbanner_");
    var inf_3 = clas("actor_list");
    
    var dcp = inf[0].innerHTML; //если что сменить на [1]
    var dcp_2 = inf_2.length != 0 ? inf_2[0].innerHTML.replace(/&nbsp;/g, " ").replace(/<br>/g, "\r\n") : null;
    var dcp_3 = inf_3[0].innerHTML;
    
    var strList = dcp.split("\n");
    var strList_3 = dcp_3.split("\n");
    
    var regular = /<[^>]*>|\r|\t|\s{2,} /g;
    var desc_1 = "";
    var desc_2 = dcp_2;
    var desc_3 = "";
    var description = "";
    
    var stop = 0;
    
    //получаем 1ю часть описания
    for (var i=0; i<strList.length; i++) {
        if (i==2) {
            desc_1 = strList[i].replace(regular, '');
        }
        if (i == 5){
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        }
        if (i == 11 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '');
        
        if (i == 14 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 20 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 21 && strList[i].length > 5)
            desc_1 = desc_1 +strList[i].replace(regular, '') + "\r\n";
        
        if (i == 22 && strList[i].length > 5)
            desc_1 = desc_1 +strList[i].replace(regular, '') + "\r\n";
        
        if (i == 23 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 24 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 25 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
            
        if (i == 26 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
            
        if (i == 27 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 28 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";
        
        if (i == 29 && strList[i].length > 5)
            desc_1 = desc_1 + strList[i].replace(regular, '') + "\r\n";    
    }
    desc_1 = desc_1.replace("жанр", "Жанр: ").replace("год", "Год: ").replace("страна", "Страна: ").replace("монтаж", "Монтаж: ").replace("художник", "Художник: ").replace("композитор", "Композитор: ").replace("оператор", "Оператор: ").replace("продюсер", "Продюсер: ").replace("сценарий", "Сценарий: ").replace("режиссер", "Режиссер: ").replace("слоган", "Слоган: ").replace(/&nbsp;/g, "").replace(/\([^\)]*\)/g, "");
    desc_1 = desc_1 + "Ссылка: "+location.href + "\r\n" ;
    
    //получаем 3ю часть описания
    for (var i=1; i<strList_3.length; i++) {
        if ((strList_3[i].replace(regular, "") == "...") || (strList_3[i].replace(regular, "") == "") )
            stop = 1;
            
        if (stop != 1)
            desc_3 = desc_3 + strList_3[i].replace(regular, "") + "\r\n";
    }
    desc_3 = desc_3.replace(":", ":\r\n\r\n") + "...";

    //складываем все 3 запчасти
    description = desc_2 != null ? desc_1 + "\r\n\r\n" + desc_2 + "\r\n\r\n\r\n" + desc_3 : desc_1 + "\r\n\r\n" + desc_3;
    
    /*var a = confirm(description);*/

    return description;
}

function button(){
    var but = clas('moviename-big');
    var temp = but[0].outerHTML;
    var element = '<EMBED width="160"  height="23"  type="application/x-shockwave-flash"  title="'+scrname+'"  allowScriptAccess="always" flashVars="clipboard='+encodeURIComponent(desc())+'"  menu="false" wmode="transparent" src="'+pathToSwf+'" ></EMBED>';
    but[0].outerHTML = '<table><tr><td>'+temp+'</td><td>'+element+'</td></tr></table>';
}

document.addEventListener('DOMContentLoaded',button,false) 


вот тут все файлы

p.s: подсветил как PHP т.к подсветки JS не было