delphi里结束语end问题？？？？？？？？？？？？？

[lingqiuchuan]

procedure TForm1.Button1Click(Sender: TObject);

var

I: Integer;
begin
ListBox1.Items.Clear;
Randomize;
I := 0;
while I < 1000 do
begin
I := I + Random (100);
Listbox1.Items.Add ('Random Number: ' + IntToStr (I));
end;
end;

以上代码我结束，end;为什么要两个打分号的，平时看到的都是end; end.，打分问和句号的end有什么区别。我在后面加个end.就编译不了。
var
a:integer;
begin
a:=strtoint(edit1.text);
case a of
1:edit2.text:='我是婴儿';
2:edit2.text:='我是儿童';
3:edit2.text:='我是青年' ;
4..7:edit2.text:='我是少年';
8..10:edit2.text:='我是成年';

else
showmessage('格式错误，请输入1-10的数字！');

end;
end;
end.

为什么这个又可以加个end.,他为什么要三个end.弄不懂这个。

[xyxhz]

同意楼上,用delphi首先要养成良好的编程习惯,不然就像vb一样了,这不是delphi的本意,建议先学习一下其基础知识

[Dhammacakkhu]

习惯不好。

[winstonbonaparte]

我这几天在改公司以前其它人写的代码，看的我郁闷死了，分级做的一点都不好，格式很乱，害的我还要先整理一下

[sher12]

end.是整个程序的结束
var
a:integer;
begin
a:=strtoint(edit1.text);
case a of
1:edit2.text:='我是婴儿';
2:edit2.text:='我是儿童';
3:edit2.text:='我是青年' ;
4..7:edit2.text:='我是少年';
8..10:edit2.text:='我是成年';

else
showmessage('格式错误，请输入1-10的数字！');

end; //case end
end; //第一个begin的end
end. //是整个程序的结束

[hduhjh]

楼上已经说了,不重复了
建议分级写代码,便于读写

procedure TForm1.Button1Click(Sender: TObject); 
var
  //...
begin
  //...
    begin
      //...


    end;
  //...
end;

//...
end.  //程序尾

[捧剑者]

kao!

[简单的工作室]

最后一个End.应该是程序全部结束的地方出现的吧。。end;分号都是一个函数 一端过程执行完后有的。。。