1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function TextToZahlen(Word:string):string;
var zFolge : string;
Zahl,i : integer;
begin
//Text zu Zahlen konvertieren

//Die verwendeten Buchstaben -Erweiterbar
zFolge := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ';

//Umwandeln
for i := 1 To Length(Word) do
begin
Zahl := Pos(Word[i],zFolge);
Result := Result+intToStr(Zahl)+' ';
end;

//Letztes Leerzeichen löschen
Delete(Result,Length(Result)-1,1);
end;

//Aufruf
Edit1.Text := TextToZahlen('Das ist ein Test');