Undo_Run;  

　　　end;  


end.  

end;  


//////////////////////////  


unit Option;  

interface  

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

type  
　TForm2 = class(TForm)  
　　GroupBox1: TGroupBox;  
　　RadioButton1: TRadioButton;  
　　RadioButton2: TRadioButton;  
　　BitBtn1: TBitBtn;  
　　BitBtn2: TBitBtn;  
　　GroupBox2: TGroupBox;  
　　RadioButton3: TRadioButton;  
　　RadioButton4: TRadioButton;  
　　RadioButton5: TRadioButton;  
　　procedure FormCreate(Sender: TObject);  
　　procedure BitBtn1Click(Sender: TObject);  
　　procedure BitBtn2Click(Sender: TObject);  
　private  
　　{ Private declarations }  
　public  
　　{ Public declarations }  
　end;  

var  
　Form2: TForm2;  


implementation  


uses  
　　 Main;  
{$R *.DFM}  

procedure TForm2.FormCreate(Sender: TObject);  
begin  
　　　 form2.RadioButton1.Checked := true;  
　　　 form2.RadioButton3.Checked := true;  
end;  

procedure TForm2.BitBtn1Click(Sender: TObject);  
begin  
　　　if form2.RadioButton1.Checked = true then  
　　　　 Online := White  
　　　else  
　　　　　Online := Black;  

　　　if　 form2.RadioButton3.Checked then  
　　　　　 begin  
　　　　　　　　 whitewin:=0;  
　　　　　　　　 blackwin:=0;  
　　　　　 end ;  


　　　Ini_main;  


　　　form2.close;  




end;  

procedure TForm2.BitBtn2Click(Sender: TObject);  
begin  
　　 form2.Close ;  
end;  

end.