电气控制仿真软件

				unit Unit6;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
				  StdCtrls, ExtCtrls;
				
				type
				  TForm6 = class(TForm)
				    Memo1: TMemo;
				    Memo2: TMemo;
				    Button1: TButton;
				    Button2: TButton;
				    Image1: TImage;
				    Image2: TImage;
				    procedure Button1Click(Sender: TObject);
				    procedure Button2Click(Sender: TObject);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  Form6: TForm6;
				
				implementation
				
				{$R *.DFM}
				
				procedure TForm6.Button1Click(Sender: TObject);
				begin
				  ShowMessage( '热烈欢迎您发邮件到zgj67@163.com'#13'或到网站论坛发贴子。' );
				  ModalResult := mrNone;
				end;
				
				procedure TForm6.Button2Click(Sender: TObject);
				begin
				  ShowMessage( '请发邮件到zgj67@163.com'#13'或打电话0350-3037077联系购买。' );
				  ModalResult := mrOk;
				end;
				
				end.