Перевод числа из 8-й системы счисления в 10-ю (Delphi)

[fuzo]

Помогите соcтавить программу для перевода числа из 8-й системы счисления в 10-ю.
Используя при этом множества.

Просто даже не представляю как это сделать

зы Ввод восьмиричного в edit1, вывод десятичного в edit2.

[D@rkD@iver]

множества тут може быть нудны только для проверки на правильность введенного числа

d:= 0;
s:= 1;

for i:= Length(Edit1.Text) downto 1 do
begin
d:= d+Edit1.Text[i]='0'*s;
s:= s*8;
end;

[fuzo]

как раз таки эта проверка и должна быть
а так спс

[D@rkD@iver]

d:= d+ord(Edit1.Text[i])-'0'*s;

[fuzo]

а что такое ord ?

[D@rkD@iver]

возращает код символа