String in Integer umwandeln?

[Pseudemys Nelsoni]

@Frank: passiert jedem mal

@delphi_newbie_123

machs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: integer; 
  s: string;
begin 
  s := GetHddSerial; 
  for i := 1 to length(s) do // string beginnt bei 1 nicht 0!
    Edit1.Text := Edit1.Text + IntToStr(Ord(s[i]));
end;