проблема с Http. Клиент и сервер на порту 8080, но не удается обменяться сообщением и приконектиться

[lelyarachok]

существует клиент:

unit IC1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdFTP, IdBaseComponent, IdComponent,
  IdCustomTCPServer, IdTelnetServer, FMX.ScrollBox, FMX.Memo, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 S:string;
implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.IdHTTP1.Connect

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if IdHTTP1.Connected  then
begin
   S:=IdHTTP1.Socket.ReadLn; memo1.Lines.Add(s);
   end
end;

end.

и сервер:

unit IS1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdContext,
  IdBaseComponent, IdComponent, IdCustomTCPServer, IdTelnetServer, IdTCPServer,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.StdCtrls,
  IdCustomHTTPServer, IdHTTPServer;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    IdHTTPServer1: TIdHTTPServer;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure IdHTTPServer1Exception(AContext: TIdContext;
      AException: Exception);
    procedure IdHTTPServer1Connect(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  S:string;
implementation

{$R *.fmx}





procedure TForm1.FormCreate(Sender: TObject);
begin
 IdHTTPServer1.Active:=true;
 IdHTTPServer1.DefaultPort:=8080
end;

procedure TForm1.IdHTTPServer1Connect(AContext: TIdContext);
begin
 AContext.Connection.Socket.Write('g1');
end;

procedure TForm1.IdHTTPServer1Exception(AContext: TIdContext;
  AException: Exception);
begin
AContext.Connection.Socket.Write('What is your name?');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IdHTTPServer1.Active=true then
     begin
       label1.Text := 'Server is: ONLINE at Port'+IdHTTPServer1.DefaultPort.ToString;
     end;

end;

end.

оба на пору 8080 но не удается обменяться сообщением и приконектися