Не работает Synchronize

[Maalik]

Доброе время суток, уважаемые господа. Вот уже битый час не могу сделать теннис по сети, не работает synchronize и всё. Поиском пользовался такой беды не нашёл. Вчера код работал, сегодня просыпаюсь - не работает. Это проклятье.

Проблема у меня такая. Запускаю игру, создаю сервер. и посылаю команды на сервер, после посылки команды HI всё у меня накрывается медным тазом.

Я думаю synchronize, портачит. Потому-что я дебагером проверял, в переменую

Form1.server_line_to_add := 'К нам подключается '+cl.RemoteHost+'...';
до synchronize присваивается нормальное значение, а после вообще кракозябры какието, и на этом дебагер выдаёт ошибку Access Violation, вот привожу код:

unit GameServer;

interface

uses
  SysUtils, Sockets, Classes;

type
  Server = class(TThread)
  private
    { Private declarations }
  protected

    line_to_add:String;

    procedure Accept(Sender : TObject; cl : TCustomIpClient);
    procedure AddLine;
    procedure Execute; override;
   // var
  end;

implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, GameEngine;

procedure Server.AddLine;
begin
   Form2.Memo1.Lines.Add(Form1.server_line_to_add);
end;

procedure Server.Execute;
begin

   Form1.TcpServer1.LocalPort := IntToStr(game_port);
   Form1.TcpServer1.OnAccept := Accept;
   Form1.TcpServer1.Active := true;

end;

procedure Server.Accept(Sender : TObject; cl : TCustomIpClient);
var
recv : String;
begin

  game_status := GS_LISTEN;
  Form1.server_client := cl;
  cl.Sendln('CONNECTED');

  while cl.Connected and cl.WaitForData(60000) do
  begin

    recv := cl.Receiveln();

    if (recv = 'HI') and (game_status = GS_LISTEN) then
    begin
       game_status := GS_CONNECTED;
       cl.Sendln('HI');

/// ВОТ ТУТ ЭТА БЕДА
       Form1.server_line_to_add := 'Ê íàì ïîäêëþ÷àåòñÿ '+cl.RemoteHost+'...';

       Synchronize(AddLine);
    end
    else
    if (game_status = GS_CONNECTED) then
    begin
        game_remote_username := recv;
        cl.Sendln(game_username);
        game_status := GS_PREPARE;
        Synchronize(Form2.Hide);
        Synchronize(Form3.Show);  
    end
    else
    if (recv = 'START') then
    begin
        if game_status = GS_PREPARE then
        begin
            cl.Sendln('NO');
        end
        else
        if game_status = GS_STARTED then
        begin
            // ÑÒÀÐÒ ÈÃÐÛ
            cl.Sendln('YES');
            Synchronize(Form4.Show);
        end
        else
        begin
            cl.Sendln('ERROR');
        end;
    end
    else
    if (game_status = GS_STARTED) then
    begin
            


            try
            remoteplatf_x := StrToInt(recv);

            except

                cl.Sendln('ERROR');
                remoteplatf_x := 0;
                Continue;
            end;


            if (remoteplatf_x < 0) then
            begin
                remoteplatf_x := 0;
            end
            else
            if (remoteplatf_x+Form4.Shape2.Width > Form4.Panel1.Width) then
            begin
                remoteplatf_x := Form4.Panel1.Width-Form4.Shape2.Width;
            end;


            cl.Sendln(IntToStr(ball_x)+';'+
                      IntToStr(ball_y)+';'+
                      IntToStr(userplatf_x));
            game_update := true;
            

    end
    else
    if game_status = GS_GAMEOVER then
    begin
    
      if game_winner = GW_USER then
      begin
       cl.Sendln('LOSE');
       end
       else
       begin
       cl.Sendln('WIN');
       end;
       
    end
    else
    if game_status = GS_PAUSED then
        begin
            cl.Sendln('PAUSED');
        end
    else
    begin
       cl.Sendln('ERROR');
    end;

  end;

  cl.Disconnect;

  Synchronize(Form1.Hide);
  Synchronize(Form2.Show);
  Synchronize(Form3.Hide);
  Synchronize(Form4.Hide);
  Synchronize(Form5.Hide);

 Form1.server_line_to_add := 'Óïñ... Ñîåäèíåíèå ïîòåðÿíî... Ïå÷àëüêà =(';
  {Synchronize(}AddLine{)};

  Form1.TcpServer1.Active := false;

end;

end.

З.Ы. Сам проект приложил...

[Slym]

1. Неосилил чтение кода... код как паутина переплетен
2. Зачем все формы создавать сразу?

[xoodoo]

дебагер выдаёт ошибку Access Violation

После Access Violation в сообщении об исключении обязательно присутствуют подробности.
Они для кого, по-твоему ?