В чем ошибка?

[adidas_pro]

В чем может быть ошибка? Выскакивает ошибка, и подсвечивает строку(выделил красным)

 TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
constructor Create(CreateSuspended: Boolean);
  end; 


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
TNewThread.Create(false);
end;

procedure TNewThread.Execute;
var
  i, ii : Integer;
  s : String;
  Data : TStringList;
  s1,s2 : string;
begin
   Form1.ListBox1.Items.LoadFromFile('login.txt');
   Form1.ListBox2.Items.LoadFromFile('pass.txt');

  // авторизация
Data := TStringList.Create;
Form1.idhttp1.HandleRedirects:=true;
for ii:=0 to Form1.listbox1.count -1 do
  begin
    Data.Add('username='+Form1.listbox1.items[ii]);
      for i:=0 to Form1.listbox2.count -1 do
         begin
             Form1.idHTTP1.CookieManager:=Form1.idcookiemanager;
             Form1.idHTTP1.Get('http://www.site.ru/moodle/login/');
             Data.Add('password='+Form1.listbox2.items[i]); 
             Data.Add('testcookies=1');
             s :=Form1.idHTTP1.Post('http://www.site.ru/moodle/login/index.php',Data);
             Form1.Memo1.Text := s;
               if pos('http://www.site.ru/moodle/message/index.php',s) <> 0 then
                  ShowMessage('GOOD');
                  Data.Free;
          end;
          end;
          end;
end.

[adidas_pro]

А если в списке только по одной записи, то вылетает следующая ошибка:

[Аватар]

Нельзя из потока к VCL обращаться без синхронизации

[adidas_pro]

Сообщение от Аватар

Нельзя из потока к VCL обращаться без синхронизации

Как быть? Я просто только вчера в потоки полез. Не работал с ними.

[Аватар]

Почитать про метод synchronize. Погуглить "синхронизация потоков DELPHI"