из яваксрипт Switch в Delphi case

[Kolik317]

Доброго времени суток.

Не пойму никак - как перевести данне функции из javascript в delphi ??
функции вывода в общем в 4-ре формы

function clearAll() { for( var i=1; i<=4; i++ ) { writeN( i, "" ); } }
function writeN( n, str ) {
switch( n ) {
case 1: document.frm.out1.value = str; break;
case 2: document.frm.out2.value = str; break;
case 3: document.frm.out3.value = str; break;
case 4: document.frm.out4.value = str; break;
}
}

функции с такими же именами в делфи созданы, переменные теже , вместо форм эдиты с теми же именами.
Спасибо

[Пепел Феникса]

переведу конкретно этот кусок.

switch( n ) {
case 1: document.frm.out1.value = str; break;
case 2: document.frm.out2.value = str; break;
case 3: document.frm.out3.value = str; break;
case 4: document.frm.out4.value = str; break;
}

будет

case n of
 1:Out1.Text:=str;
 2:Out2.Text:=str;
 3:Out3.Text:=str;
 4:Out4.Text:=str;
end

;
str должна быть типа string(но это на заметку)

[Kolik317]

спасибо, я че-то тормознул))