KEY værdien ind i edit1.text

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
Edit2.Text := '';
for I := 0 to Length(Edit1.Text) do
begin
Edit2.Text := Edit2.Text + IntToStr(Ord(Edit1.Text[I]));
end;
end;

Lægger lige et svar :-)

Det skal vist være:

for I := 1 to Length(Edit1.Text) do

istedet for:

for I := 0 to Length(Edit1.Text) do

hejhej...
Når jeg bruger din kode, så får jeg 09811497109115105110103 Men når jeg bruger denne kode

procedure TForm1.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
edit2.Text := inttostr(key);
end;

og skriver talne ned enkeltvis får jeg 6682657783737871

Er det normalt??? ( Spørger måske dumt :-S )

Altså når jeg skriver bramsing ;-)

Prøv at skriv det med store bogstaver eller brug denne kode istedet:

procedure TForm1.Button1Click(Sender: TObject);
var
I:Integer;
begin
Edit2.Text := '';
for I := 1 to Length(Edit1.Text) do
begin
Edit2.Text := Edit2.Text + IntToStr(Ord(UpperCase(Edit1.Text)[I]));
end;
end;

:-)

Takker nu virker det :D