Многопоточность в делфи

unit Unit3;
 
interface
    uses ScktComp, classes, Sysutils;
type
 
   TMyClass = class(TThread)
    private
      login : string;
      password : string;
      name_of_shop : string;
      ClientSocket1: TClientSocket;
      THRead : TMyThread;
      procedure OnReceive();
    public
      name_of_list :string;
      procedure Init(ip:string; port:integer; login,pass:string);
 
    published
    //  property item_name : string read login;
  end;
implementation
 
uses Unit1;
 
procedure TMyClass.Init(ip:string;port:integer;login,pass:string);
begin
   Create(false);
   ClientSocket1.Host:= ip;
   ClientSocket1.Port:= port;
   ClientSocket1.Open();
end;
{Дальше буду ловить событие получения чего то от сервера и обрабатывать.}
end.

    
    ClassList.Add(MyThread.Create(true));
 
    MyThread(ClassList[0]).IP:= 'link5.pwonline.ru';
    MyThread(ClassList[0]).Port:= 29000;
    MyThread(ClassList[0]).Resume;

var 
MyClass : ^MyThread;
begin
 MyClass^:= MyThread.Create(true);
 MyClass^.IP:= 'testip';
 MyClass^.Port:= 29000;
 MyClass^.Resume;
 ClassList.Add(MyClass);
end;

var 
  NewThread: TMyThread;
..
 NewThread := TMyThread.Create(true);
 NewThread.IP:= 'testip';
 NewThread.Port:= 29000;
 NewThread.Resume;
 MyThreadList.Add(NewThread);

function CUInt(Pack: array of byte): integer;
var
V: integer;
B1,B2,B3,B4: byte;
begin
 B1 := Pack[0];
if (B1 < $80) then V := B1
else
   if (B1 < $C0) then
   begin
   B2 := Pack[1];   
   V := (( B1 Shl 8 ) or B2) and $3FFF;
   end
   else
   begin
   B2 := Pack[1];
   B3 := Pack[2];
   B4 := Pack[3];
   V := (( B1 Shl 24 ) or ( B2 Shl 16 ) or ( B3 Shl 8 ) or B4 ) and $1FFFFFFF;
   end;
result:= V;
end;

  for I := 0 to ClassList.Count-1 do
      MyThread(ClassList[I]).MTerm:= true;