Ругается на ограничение ширины и высоты TBitMap..

[Человек_Борща]

Всем привет!
Вопрос следующего рода.
Хочу чтобы была возможность выставлять скриншотам определенное разрешение(выбранное пользователем) при сохранении в файл. И того получается:

..
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
if SettingsForm.ImgHeightWightChk.Checked then
begin
case SettingsForm.ImageSizeBox.ItemIndex of
0:
bm.Width:=640;
bm.Height:=480;
1:
bm.Width:=800;
bm.Height:=600;
2:
bm.Width:=1024;
bm.Height:=768;
3:
bm.Width:=1280;
bm.Height:=1024;
end;
end else
begin
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
end;
..

ругается на(во всех 4 случаях.. неважно какое число, хоть 2345):

bm.Width:=1280;
bm.Height:=1024;

пишет что-то про константу:

Constant expression expected

интересно почему? ведь я всего лишь хочу выставить ширину и высоту БитМапа...

[W0LF]

удалено...

[bitSoft]

Сообщение от Человек_Борща

Всем привет!
Вопрос следующего рода.
Хочу чтобы была возможность выставлять скриншотам определенное разрешение(выбранное пользователем) при сохранении в файл. И того получается:

..
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
if SettingsForm.ImgHeightWightChk.Checked then
begin
case SettingsForm.ImageSizeBox.ItemIndex of
0:
begin
 bm.Width:=640;
 bm.Height:=480;
end;
1:
begin
 bm.Width:=800;
 bm.Height:=600;
end;
2:
begin
 bm.Width:=1024;
 bm.Height:=768;
end;
3:
begin
 bm.Width:=1280;
 bm.Height:=1024;
end;
end;
end else
begin
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
end;
..

ругается на(во всех 4 случаях.. неважно какое число, хоть 2345):

bm.Width:=1280;
bm.Height:=1024;

пишет что-то про константу:

Constant expression expected

интересно почему? ведь я всего лишь хочу выставить ширину и высоту БитМапа...

begin i end; zabil , bloki ne stavil,