Fehler bei TPowersock über Thread

[Delphigreis]

Hallo, ich habe (Delphi5) beim Aufruf von PSock1.Connect; in einem weiteren Thread eine Fehlermeldung, weiß mir keinen Rat mehr, was habe ich wo vergessen oder falsch gemacht???

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: thread1;
begin
  NewThread:=thread1.Create(false);
end;
end.

unit Unit2;
interface
uses
  Classes, unit1, SysUtils, Psock, dialogs;
type
  thread1 = class(TThread)
  private
    verbunden : Boolean;
     { Private-Deklarationen }
  protected
    procedure Execute; override;
    procedure Ergebnis;
  end;
implementation
{ thread1 }
procedure thread1.Execute;
var
  Psock1: TPowersock;
begin
  verbunden := False;
  PSock1 := TPowersock.Create(Nil) ;
  PSock1.TimeOut := 5000;
  PSock1.Host := 'www.google.de';
  PSock1.Port := 7;
try
  ShowMessage('vor connect');
  PSock1.Connect;
  ShowMessage('nach connect');
finally
  ShowMessage('finally');
  verbunden := PSock1.FConnected;
  PSock1.Disconnect ;
  PSock1.Free ;
end;
  ShowMessage('Synchronize');
Synchronize(Ergebnis);
end;
procedure thread1.Ergebnis;
begin
if verbunden then Form1.caption :='verbunden';
end;
end.

Bin dankbar für eine Idee.

Franziska