请问我这段关于线程的代码有什么问题?

[wealsh]

type
Myzhiling = record
command: Integer;
end;

ClientInfo = record
PcName:string[5];//名称
passwd:string[20];//密码
command:string[5];//指令
Ver:string[2]; //版本
Text:string; //附加信息
end;

TMyThread = class(TThread)
private
F_info:ClientInfo;
F_Athread: TIdPeerThread;
protected
procedure DoTerminate; override;
public
constructor Create(C_info:ClientInfo; const C_Athread: TIdPeerThread);
destructor Destroy; override;
procedure Execute; override;
end;

implementation

uses main;

{ TCheckThread }

constructor TMythread.Create(C_info:ClientInfo; const C_Athread: TIdPeerThread);
begin
inherited Create(False);
FreeOnTerminate := True;

F_info:=C_info;
F_Athread := C_Athread;
end;

destructor Tmythread.Destroy;
begin
inherited Destroy;
end;

procedure TMythread.DoTerminate;
begin
inherited DoTerminate;
end;

procedure TMythread.Execute;
begin
with Form1 do
begin
EnterCriticalSection(cs);
if F_info.command='ADD'then
begin
form1.listview1.items.add................
end;
LeaveCriticalSection(cs);
Terminate;
end;



//=========================

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
C_info:ClientInfo;
begin
// if (not AThread.Terminated) and (AThread.Connection.Connected=True) then
begin
AThread.Connection.ReadBuffer(C_info,SizeOf(C_info));
TMyThread.Create(C_info,AThread);
end;
end;

[qlwuu]

不要在主线程以外的地方访问vcl控件。

[fanshousu]

在线程中访问VCL控件的时候,请使用Synchronize
按照你的上面写法,程序中Form1将会出现停止状态,这是由于Form1将不能其他的访问