{ This demo illustrates a simple chat program using the TCP component.  With
  this demo you can send text between two computers.   This program must be
  running on both computers at the same time for a connection to be made.  Once
  connected you can exchange text by typing into the memo and pressing the Enter
  key which will send the last line of text in the memo.  }
program DChat;

uses
  Forms,
  main in 'main.pas' {ChatForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TChatForm, ChatForm);
  Application.Run;
end.
