1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure TForm4.Spielregeln_closeClick(Sender: TObject);
begin
  if Form4.ComboBox1.Text='COM1' then
    Form1.Com.PortName:='\\.\COM1';

  if Form4.ComboBox1.Text='COM2' then
    Form1.Com.PortName:='\\.\COM2';

  if Form4.ComboBox1.Text='COM3' then
    Form1.Com.PortName:='\\.\COM3';

  if Form4.ComboBox1.Text='COM4' then
    Form1.Com.PortName:='\\.\COM4';

  if Form4.ComboBox1.Text='COM5' then
    Form1.Com.PortName:='\\.\COM5';

  if Form4.ComboBox1.Text='COM6' then
    Form1.Com.PortName:='\\.\COM6';

  if Form4.ComboBox1.Text='COM7' then
    Form1.Com.PortName:='\\.\COM7';

  if Form4.ComboBox1.Text='COM8' then
    Form1.Com.PortName:='\\.\COM8';

  if Form4.ComboBox1.Text='COM9' then
    Form1.Com.PortName:='\\.\COM9';

  Close
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

//------------------------------------------------------------------------
// UNIT           : CPDrv.pas
// CONTENTS       : TCommPortDriver component
// VERSION        : 2.1
// TARGET         : (Inprise's) Borland Delphi 4.0
// AUTHOR         : Marco Cocco
// STATUS         : Freeware 
// INFOS          : Implementation of TCommPortDriver component:
//                  - non multithreaded serial I/O
// KNOWN BUGS     : none
// COMPATIBILITY  : Windows 95/98/NT/2000
// REPLACES       : TCommPortDriver v2.00    (Delphi 4.0)
//                  TCommPortDriver v1.08/16 (Delphi 1.0)
//                  TCommPortDriver v1.08/32 (Delphi 2.0/3.0)
// BACK/COMPAT.   : partial - a lot of properties have been renamed 
// RELEASE DATE   : 06/06/2000
//                  (Replaces v2.0 released on 30/NOV/1998)
//------------------------------------------------------------------------