короче ты хочешь, чтобы все буквы стали цифрами???
Код:
var
s, s1, s2 : string;
begin
s := edit.text;//s приравнивается содержимому едита
s1 := '';
s2 := '';
for i :=0 to length(s)-1 do begin//от нуля до конца едита
s[i] := s1;//переменной приравниваем итый символ строки
s1 := IntToStr(Ord(s1));//символ переменной переделать в его цифровой код
s2 := s2+s1;//к новой строке прибавить новый символ
end;
edit.text := s2;//едиту присваеваем новую строку
end;
Код можно оптимизировать, но для начала мыслительного процесса начало есть...