1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  asciinr : longint;
  zeile   : string;
  i       : integer;
begin
  i:=strtoint(edit1.text);
  zeile:=edit2.text;
  asciinr := ord(Zeile[i]);
  label1.Caption:=inttostr(asciinr);
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(ord(Edit1.Text[1]));
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Label1.Caption := IntToStr(ord(Edit1.Text[StrToInt(Edit2.text)])); 
end;					

1:
2:
3:
4:
5:
6:
7:
8:

For i := 1 To length(txt_Eingabe.text) do
  begin
   case IntToStr(ord(Copy(txt_Eingabe.Text, i, 1))) of  //Fehler
    65..90, 97..122: begin
      tudiesunddas
    end;
    48..57: begin
    ....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : String;
begin
  for i := 1 to length(Edit1.Text) do
  begin
    s := IntToStr(ord(Edit1.Text[i]));
    Showmessage(s);
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 1 To length(Edit1.text) do
  begin
   case ord(Edit1.Text[i]) of  //Fehler
     65..90, 97..122:
     begin
       ShowMessage('1');
     end;
     48..57:
     begin
       Showmessage('2');
     end;
   end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

case Edit1.Text[i] of
  'A'..'Z',
  'a'..'z':
    ShowMessage('1');
  '0'..'9':
    Showmessage('2');
end;