Есть проблема с потоками

[DeeNamid]

Делаю один поток в котором будет пинговаться узел. Происходит ошибка при создании объекта Ping2, в чем ошибка?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 TPingThread.Create(true,'74.55.2.116');
end;

end.
--------------------------------------------------
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OverbyteIcsWndControl, OverbyteIcsPing, StdCtrls, ComCtrls,Unit1;

type
  TPingThread = class(TThread)
    HostAddress:string;
    Ping2:Tping;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean;Host:string);
  end;

implementation


constructor TPingThread.Create(CreateSuspended: Boolean; Host:string);
begin
HostAddress:=Host;
inherited Create(false)
end;

procedure TPingThread.Execute;
var i,j:integer;
begin
   Ping2.Create(nil); //вот здесь
end;

end.

Заключачаем код в теги CODE

[EdNovice]

Не должно ли быть так:
procedure TPingThread.Execute;
begin
Ping2 := TPing.Create(nil);
end;

[DeeNamid]

Сообщение от EdNovice

Не должно ли быть так:
procedure TPingThread.Execute;
begin
Ping2 := TPing.Create(nil);
end;

Вообще-то да, так и было, что-то я не то стер видимо . Вообщем, оно так и есть и выдает ошибку.