[NIch]

короче ты хочешь, чтобы все буквы стали цифрами???

Код:

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;

Код можно оптимизировать, но для начала мыслительного процесса начало есть...