case语句格式错了吗？(100分)

我按照一教程编写程序部分如下：
procedure TFMForm.FormCreate(Sender: TObject);
var
Drive, AddedIndex: Integer;
DriveLetter: Char;
begin
FileMana := TFMForm.Create(Application);
for Drive := 0 to 25 do
begin
DriveLetter := Chr(Drive + ord('a'));
case GetDrivetype(Drive) of
DRIVE_REMOVABLE:
AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Floppy.Picture.Graphic);
DRIVE_FIXED:
AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Fixed.Picture.Graphic);
DRIVE_REMOTE:
AddedIndex := DriveTabSet.Tabs.AddObject(DriveLetter, Network.Picture.Graphic);
end;
if UpCase(DriveLetter) = UpCase(FileListbox1.Drive) then
DriveTabSet.TAbIndex := AddedIndex;
end;
end;
执行后，显示'.'expected but ','found提示信息，双击提示信息，标记
返回到上面部分的最后一个end处。
请问各位大侠这是什么原因，该如何解决？[]

程序最后的 End. 可能被你删掉了。

查查类似匹配问题"

检查程序的最后一行
End.
是否还有.
看了一下,没发现begin...end 不匹配的问题.

程序最后的 End. 被你删除了。

接受答案了.