本人做的第一个程序，多亏CSDN上面的帮助，虽然程序内容很简单，但是小弟我很满足

本人做的第一个程序，多亏****上面各位高手的帮助，虽然程序内容很简单，但是我很满足
unit COMM;



interface



 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, SPComm, ExtCtrls, Buttons, ComCtrls, Menus;



 type

  TForm1 = class(TForm)

  Com1: TComm;

  Button4: TButton;

  GroupBox1: TGroupBox;

  Button1: TButton;

  Button2: TButton;

  Button3: TButton;
  Button5: TButton;
  memo1: TMemo;
  edRx: TEdit;
  Memo2: TMemo;
  Timer1: TTimer;
  Label4: TLabel;
  Label8: TLabel;
  Button11: TButton;
  Button10: TButton;
  Button12: TButton;
  Edit2: TEdit;
  Button13: TButton;
  Edit3: TEdit;
  Button14: TButton;
  Button15: TButton;
  GroupBox2: TGroupBox;
  Label1: TLabel;
  Label2: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  ComboBox1: TComboBox;
  ComboBox2: TComboBox;
  ComboBox3: TComboBox;
  ComboBox4: TComboBox;
  ComboBox5: TComboBox;
  edTx: TEdit;
  Edit5: TEdit;
  Edit6: TEdit;
  Edit7: TEdit;
  Edit8: TEdit;
  Edit9: TEdit;
  Edit10: TEdit;
  Edit11: TEdit;
  Label18: TLabel;
  Button16: TButton;
  Button7: TButton;
  GroupBox3: TGroupBox;
  Label14: TLabel;
  Label15: TLabel;
  Label9: TLabel;
  Label10: TLabel;
  Label11: TLabel;
  Label12: TLabel;
  Label13: TLabel;
  Label16: TLabel;
  Label17: TLabel;
  Label19: TLabel;
  Label20: TLabel;
  Button8: TButton;
  Button9: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  procedure Button4Click(Sender: TObject);
  procedure Com1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
  procedure Button3Click(Sender: TObject);
  procedure ListBox1Click(Sender: TObject);
  procedure Button5Click(Sender: TObject);
  procedure ComboBox1Change(Sender: TObject);
  procedure ListBox2Click(Sender: TObject);
  procedure ComboBox3Change(Sender: TObject);
  procedure ComboBox4Change(Sender: TObject);
  procedure ComboBox5Change(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure Button9Click(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
  procedure ComboBox2Change(Sender: TObject);
  procedure Button10Click(Sender: TObject);
  procedure Button11Click(Sender: TObject);
  procedure Button12Click(Sender: TObject);
  procedure Button13Click(Sender: TObject);
  procedure Button14Click(Sender: TObject);
  procedure Button15Click(Sender: TObject);
  procedure Button7Click(Sender: TObject);
  procedure Edit5Change(Sender: TObject);
  procedure Edit6Change(Sender: TObject);
  procedure Edit7Change(Sender: TObject);
  procedure Edit8Change(Sender: TObject);
  procedure Edit9Change(Sender: TObject);
  procedure Edit10Change(Sender: TObject);
  procedure Button8Click(Sender: TObject);
  procedure Button16Click(Sender: TObject);





  private
  { Private declarations }