[KamiMAN]

Заранее извиняюсь за глупый вопрос, но есть небольшая проблемка, которую я в упор непонимаю... Что тут нетак? Embarcadero вовсю ругается на мой код. Пробую написать чат из этой статьи.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    SpinEdit1: TSpinEdit;
    ServerSocket1: TServerSocket;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ServerSocket1.Port:=SpinEdit1.Value;
  ServerSocket1.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ServerSocket1.Active:=False;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var S: string;
begin
  if Key = Chr(13) then
  begin
    Key:=Chr(0);
    S:=Edit1.Text;
    Edit1.Clear;
    ServerSocket1.Socket.Connections[0].SendText(S);
    Memo1.Lines.Add('< '+S);
  end;
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
 Socket: TCustomWinSocket);
begin
  Memo1.Lines.Add('Клиент отсоединился');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var Received: string;
begin
  Received:=Socket.ReceiveText;
  Memo1.Lines.Add('> '+Received);
end;

end.

Извините, спойлер неполучается поставить...
Подскажите что в этом коде нетак? Embarcadero ругается чуть ли не в каждой строчке ошибка. Заранее спасибо...

P.S. Сохранил, все заработало, почему?