Fórum acesso violetion - Thread #368483

{ TClientThread } 

constructor TClientThread.Create(CreateSuspended: Boolean); 
begin 
//inherited Create(CreateSuspended); 
inherited Create(true); 

Self.Priority := tpIdle; 
Self.FreeOnTerminate:= true; 
end; 

procedure TClientThread.Execute;
begin
  Synchronize(Executa);
end;

procedure TClientThread.ExecutaThread;
begin
  //inherited;

  with Form1 do
    begin
    if not IdTCPClient1.Connected then
      Exit;

    repeat
      cmd.text:= IdTCPClient1.ReadLn;
      if trim(cmd.text) <> ´´ then
      begin


        if VerificaComando(cmd.text,´msg=´,true) then
          ShowReceiveMsg
        else if VerificaComando(cmd.text,´list_user=´,true) then
          ListUsers
        else if VerificaComando(cmd.text,´nick_existente=´,true) then
          NickExistente
        else if VerificaComando(cmd.text,´server_error=´,true) then
          ShowServerError
        else
          UnknowCmd;

      end;
    until not IdTCPClient1.Connected;
  end;

  {if not Terminated then
    Terminate;}
end;

TClientThread = class(TThread)

private
  FForm : TForm;
end;

constructor TClientThread.Create(CreateSuspended: Boolean, AForm : TForm);
begin
//inherited Create(CreateSuspended);
inherited Create(true);

Self.Priority := tpIdle;
Self.FreeOnTerminate:= true;
Self.FForm  := AForm;
end;