--- /dev/null
+unit IndividualAbon;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, StdCtrls;
+
+type
+ TIndividualAbonForm = class(TForm)
+ ComboBox1: TComboBox;
+ Label1: TLabel;
+ Button1: TButton;
+ procedure Button1Click(Sender: TObject);
+ private
+ { Private \90é\8c¾ }
+ public
+ { Public \90é\8c¾ }
+ ResNumber : Integer;
+ end;
+
+var
+ IndividualAbonForm: TIndividualAbonForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TIndividualAbonForm.Button1Click(Sender: TObject);
+begin
+ ResNumber := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
+end;
+
+end.