delphi7 with u1下，无效的指令stringlength

apmj

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
S: string[11]
stringlength:Byte;
begin
stringlength:=Edit1.GetTextLen;
str(StringLength,s);
Edit2.Text:=S;

end;
end.
我整的delphi程序，找本书初学的。但运行老错误，提示 无效的指令stringlength
到底是谁错？

伊の星

声明stringlength为edit1.gettextlen。
难道是没初始化？
- -，没学过DELPHI的路过。