关于线程（为什么我用synchronize进不了）

Question

TReceiveThread = class(TThread)
  private
    FMsg: string;
    procedure showme;
  protected
    procedure Execute; override;
  end;var
  FThread: TReceiveThread;
procedure TReceiveThread.showme;
begin
  showmessage('123456');
end;
procedure TReceiveThread.Execute;
begin
  while not Terminated do
  begin
    if Form1.IdTCPClient1.Connected then
    begin
      FMsg := Form1.IdTCPClient1.ReadLn;
      FThread.Synchronize(showme);
      Sleep(100);
    end;
  end;
end;为什么不显示123456呢

Answer 1

把FThread.Synchronize(showme);改成Synchronize(showme);

Answer 2

一样显示不出来！有一点可以保证，程序可以运行到FMsg := Form1.IdTCPClient1.ReadLn;都没有问题，就是下一步不行。

Answer 3

为什么我程程序退出的时候线程的execute还在运行，在writeln()出错，我加了判断在连接中运行writeln()还是不行，不知道有什么办法！