为何在线程中无法给窗体付值，有代码，请指教，第一次做多线程

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
     TNumthread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    Tag:Integer;
    Suffix:String;
    LoadFirst:Integer;
    Can:Boolean;
    Procedure AddPicToBit;
    Procedure EveryPicToBit(Index:Integer);
end;
var
  Form1: TForm1;
  loadThread:TNumthread;
implementation{$R *.dfm}
procedure Tnumthread.Execute;
begin
  AddPicToBit;
end;
Procedure TNumThread.AddPicToBit;
begin
  EveryPicToBit(tag);
end;
Procedure TNumThread.EveryPicToBit(Index:Integer);
begin
  form1.Caption :=inttostr(index);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  loadthread:=Tnumthread.Create(True);
  loadthread.Tag:=5;
  loadthread.Resume;
end;end.
另外我在另一个程序中窗体Picform.pas中用同样的线程，用到窗体变量就换错，不知道什么原因

Answer 1

线程和界面同步需要使用Synchronize参见线程中的注释：
{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,      Synchronize(UpdateCaption);  and UpdateCaption could look like,    procedure A.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

Answer 2

procedure Tnumthread.Execute;
begin
  Synchronize(AddPicToBit);
end;