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

Var 
  a: String;
  x: Char;
  y: String;
  z: Byte;
Begin
  a:= 'EinText';
  For i:= 1 To 7 Do Begin
    x:= Copy(a, i, 1); <-- Fehler Char und String inkompatibel
    y:= Copy(a, i, 1); <-- Funktioniert
    z:= Copy(a, i, 1); <-- Fehler Byte und String inkompatibel
    z:= Ord(PChar(y)); <-- Inkompatibel
  End;
End;                    

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

Var 
  a: String;
  x: Char;
  y: String;
  z: Byte;
Begin
  a:= 'EinText';
  For i:= 1 To 7 Do Begin
    x := a[1]; //Erstes Zeichen 'E', Char = 1 Zeichen
    y := Copy(a, 1, 1); //Zeichenkette länge eins mit 'E'
                        //da Copy auch mehrere Zeichen zurückgegeben kann,
                        //ist der Rückgabewert String und kann deshalb nicht in
                        //einem Char der festen Länge 1 gespeichert werden
    z := Byte(a[1]);    //oder z := ord(a[1]);
  End;
End;