Invalid numeric format

[_-Re@l-_]

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

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    ServerSocket1: TServerSocket;
    procedure MyConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure MyRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  MyAccount:User;
  isServer:Boolean;
  CS:TClientSocket;

implementation

{$R *.dfm}

uses Unit1,Unit2;

procedure TForm3.MyConnect(Sender:TObject; Socket:TCustomWinSocket);
begin
      ServerSocket1.Socket.SendText(MyAccount.NickName);
end;

procedure TForm3.MyRead(Sender: TObject;Socket: TCustomWinSocket);
begin
      ListBox1.AddItem(Socket.ReceiveText,nil);
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
      CheckBox1.Checked:=not CheckBox1.Checked;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      Application.Terminate;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
      Memo1.Clear;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
      If not isServer Then
      Begin
            CS:=TClientSocket.Create(Form3);
            CS.OnConnect:=MyConnect;
            CS.OnRead:=MyRead;
            CS.Address:='94.31.253.109';
            CS.Port:=1025;
            CS.Open;
            CS.Active:=True;
     End
     Else
          ServerSocket1.Active:=True;
end;

procedure TForm3.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      ListBox2.AddItem(Socket.ReceiveText,nil);
end;

end.

Если понадобятся Unit1 и Unit2, скажите.

[Пепел Феникса]

а отладка не выдает места возникновения ошибки?

[_-Re@l-_]

Действительно, забыл про неё, просто запускал екзешник.
Вообще, странно что ошибку выдаёт в строке чтения возраста пользователя...

[Пепел Феникса]

а где эта строка?
проверь переменные, может там чтото не то.