Frage zum Substring in Delphi

[Pfaffe]

Folgendes funktioniert unter Delphi XE5:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PNR, NR1: String;
begin
  PNR:= edit1.text; 
  NR1:= PNR.SubString(0,1); // Startindex ist 0 basierend
  Label1.Caption:= NR1;
end;