Frage zum Substring in Delphi

[Oernie1984]

Hallo zusammen,

ich habe eine Frage zu den Substrings...

Ich möchte mir ein kleines Programm schreiben mit dem ich die 9. Ziffer(Prüfziffer) einer 8 stelligen Zahl ausrechnen kann. Ich würde quasi eine 8 Stellige Zahl in ein Editfeld eintragen und daraufhin soll mir die eingetragene Zahl dann inkl. fehlender 9 Prüfziffer ausgegeben werden.

Ich habe für den Anfang folgendes geschrieben:

Delphi-Quellcode:

unit Pruefziffer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Schliessen: TButton;
    Edit1: TEdit;
    Berrechnung: TButton;
    Label1: TLabel;
    procedure ButtonSchliessenClick(Sender:Tobject);
    procedure ButtonBerrechnungClick(Sender:TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  PNR: String;
  NR1: String;

implementation

{$R *.dfm}

procedure TForm1.ButtonSchliessenClick(Sender: TObject);
begin
close;
end;

procedure TForm1.ButtonBerrechnungClick(Sender:TObject);
var
PNR, NR1: String;
begin
PNR:= edit1.text;
NR1:= PNR.SubString(1,1);
Label1.Caption := NR1;
end;

end.

Delphi gibt mir nun immer die Meldung zurück
[Fehler] Pruefziffer.pas(42): Record, Objekt oder Klassentyp erforderlich

Es handelt sich um diese Zeile
NR1:= PNR.SubString(1,1);

Könnt ihr mir sagen was ich falsch mache?

Grüße
Oernie