FTP клиент. Непонятная ошибка

[mad_ded]

Здравствуйте всем! Помогите понять где ошибки?
Строка в которой ошибка подчеркнута.
Точка выделенная красным: expected : but received .
Где ошибка? помогите!

procedure TForm1.FormCreate(Sender: TObject);
const

IconNames: array [0..6] of string = ( 'CLOSEDFOLDER',
'OPENFOLDER',
'FLOPPY',
'HARD',
'NETWORK',
'CDROM',
'RAM' );
var
node: TTreeNode;
DriveType: integer;
bm, mask: TBitmap;
i: integer;

TreeView1.Items.BeginUpdate;

TreeView1.Images := TImageList.CreateSize( 16, 16 );
bm := TBitmap.Create;
mask := TBitmap.Create;
for i := 0 to 6 do
begin
bm.Handle := LoadBitmap( HInstance, PChar( IconNames[i] ) );
bm.Width := 16;
bm.Height := 16;
mask.Assign( bm );
mask.Mask( clBlue );
TreeView1.Images.Add( bm, mask );
//end;
bm.Free;
mask.Free;

for i := 0 to 25 do
begin
DriveType := GetDriveType( PChar( Chr( i + 65 ) + ':\' ) );
if DriveType = 1 then continue;
node := Form1.TreeView1.Items.AddChild( nil, Chr( i+65 ) + ':' );
case DriveType of
DRIVE_REMOVABLE: node.ImageIndex := 2;
DRIVE_FIXED: node.ImageIndex := 3;
DRIVE_REMOTE: node.ImageIndex := 4;
DRIVE_CDROM: node.ImageIndex := 5;
else
node.ImageIndex := 6;
end;
node.SelectedIndex := node.ImageIndex;
node.HasChildren := true;
end;
// Обновляем TreeView
TreeView1.Items.EndUpdate;

[Volkogriz]

Так вроде работает)

const
IconNames: array [0..6] of string = ( 'CLOSEDFOLDER',
'OPENFOLDER',
'FLOPPY',
'HARD',
'NETWORK',
'CDROM',
'RAM' );
var
node: TTreeNode;
DriveType: integer;
bm, mask: TBitmap;
y,i: integer;
begin
TreeView1.Items.BeginUpdate;
TreeView1.Images := TImageList.CreateSize( 16, 16 );
bm := TBitmap.Create;
mask := TBitmap.Create;
for y := 0 to 6 do
begin
bm.Handle := LoadBitmap( HInstance, PChar( IconNames[y] ) );
bm.Width := 16;
bm.Height := 16;
mask.Assign( bm );
mask.Mask( clBlue );
TreeView1.Images.Add( bm, mask );
//end;
for i:= 0 to 25 do
begin
DriveType := GetDriveType( PChar( Chr( i + 65 ) + ':\' ) );
if DriveType = 1 then continue;
node := Form1.TreeView1.Items.AddChild( nil, Chr( i+65 ) + ':' );
case DriveType of
DRIVE_REMOVABLE: node.ImageIndex := 2;
DRIVE_FIXED: node.ImageIndex := 3;
DRIVE_REMOTE: node.ImageIndex := 4;
DRIVE_CDROM: node.ImageIndex := 5;
else
node.ImageIndex := 6;
end;
node.SelectedIndex := node.ImageIndex;
node.HasChildren := true;
end;
// Îáíîâëÿåì TreeView
TreeView1.Items.EndUpdate;
bm.Free;
mask.Free;
end;

С уважением,
Volkogriz!