Шифрование

[Дмитрий163]

есть код шифрования нужно компоненты распределить и вывести в label


j:=''
for s:=1 to length (st) do
begin
k:= ord (st[s]);
st2(st,n,k)
j:=j+st;
end.

как я понял выводить j надо в label, а вот распределение что куда не пойму

[Человек_Борща]

Набросай компоненты и сделай так, чтобы во время работы функции она показывала какие-то значения(результаты) в этих компонентах.

[Дмитрий163]

Ну если не сложно подскажите какие компоненты и куда=)

[kta87]

используйте компонент TEdit например для ввода шифруемого текста, в компонент TLabel выводите зашифрованный результат.

[Дмитрий163]

так это понятно все вот примерно как я думаю:
procedure TForm_2.Edit1Click(Sender: TObject);
var
st,st2,n,k,i:integer;
j:string;
begin
for i:=1 to length (st) do
k:= ord (st[i]);
st2(s,n,k);
j:=j+st;
end;
Если есть ошибка скажите или подскажите=) просто не могу понять почему на (St) выдает ошибку