这个"begin"为什么可有可无？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
showMessage('OK');
end;

begin//////////////////////////////////////////这行加上也可以运行，删除也没有错，为什么？

end.

大侠们给讲解一下，谢谢！

[解决办法]
编译器自动就给你优化掉了
[解决办法]
楼上
[解决办法]
楼上上
[解决办法]
上上上
[解决办法]

Delphi(Pascal) code

//下面的代码结构就是一个单元的整体结构了。unit UnitName; interface //这儿是接口部分implementation //这儿是实现部分//这儿，你加一个begin，编译器会给你优化掉的。 嘻~~.....end.//这个end是单元的结束了//下面代码是DLL工程的结构，在这儿，就不能省略了。。。。。library Project2;{ Important note about DLL memory management: ShareMem must be the  first unit in your library's USES clause AND your project's (select  Project-View Source) USES clause if your DLL exports any procedures or  functions that pass strings as parameters or function results. This  applies to all strings passed to and from your DLL--even those that  are nested in records and classes. ShareMem is the interface unit to  the BORLNDMM.DLL shared memory manager, which must be deployed along  with your DLL. To avoid using BORLNDMM.DLL, pass string information  using PChar or ShortString parameters. }uses  SysUtils,  Classes;{$R *.res}beginend.
[解决办法]
begin和end相当于｛｝，没有复合语句时就可以可有可无．
[解决办法]
呵呵，晕死，大家都不太对的吧。你写上这个begin就会带来问题的：
一个单元是可以有一个initialization节和一个finalization节的，如果你写上了那个begin，你就不能再拥有initialization节（编译都不会通过），而如果没有initialization节，自然也就不能再有finalization节。
[解决办法]
，，，学习，，
[解决办法]
订
[解决办法]
hongqi162  

说得对。