chat.dpr

这有很多Delphi应用的例子

{ This demo illustrates a simple chat program using the Client and Server socket
  components.  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 to
  the other machine.  }
program Chat;

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

{$R *.RES}

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