code5.pas

这个也不错

unit code5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm5 = class(TForm)
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses code;

{$R *.DFM}

procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  form1.ClientSocket1.Socket.SendText('over!');
end;

end.