请问下面的线程创建为什么不对(一执行就报内存地址错)？

Question

程序的目的就是创建一个线程，在主窗体的Memo上增加一行（一个字符串）：
线程定义部分代码：
type
  TestIP = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    IP: String;
    constructor Create(StrIP: String);
  end;implementationuses Unit1;{ TestIP }
constructor TestIP.Create(StrIP: String);
begin
  IP:=StrIP;
  inherited Create(false);
end;procedure TestIP.Execute;
begin
  { Place thread code here }
  form1.Memo1.Lines.Add(IP);
  FreeOnTerminate:=true;
end;创建执行代码：
procedure TForm1.Button1Click(Sender: TObject);
var
  t: TestIP;
begin
   t.Create('127.0.0.1');   
end;结果一执行就报内存错误，是哪里不对啊？

Answer 1

t := TestIP.Create('127.0.0.1');