Конвертация ICO в BMP

[DeDoK]

Здраствуйте форумчане! помогите плз разобраться в вопросе:
Пишу такой код:

procedure TForm1.ConvertButtonClick(Sender: TObject);
var
Icon : TICON;
Bitmap : TBitmap;
begin
if ComboBox1.Text=('Формат') then ShowMessage('Please, choose your format!') else
if ComboBox1.Text=('Конвертировать в  BMP') then
begin
Icon:=Ticon.Create;
Icon.LoadFromFile(OpenDialog1.FileName);
Bitmap.Width:=Icon.Width;
Bitmap.Height:=Icon.Height;
Bitmap.Canvas.Draw(0,0,Icon);
Image1.Picture.Bitmap.Assign(Bitmap);
Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'Temp.bmp');
Icon.Free;
Bitmap.Free;
end;

Все компилируется но при использовании программы выдается ошибка такого рода:
Access viotation at address 0047C5DA in module 'IcoToBmp.exe'. Read of address 0000BD51

[eoln]

Пропущено

BitMap:=TBitMap.Create;

перед строкой

Bitmap.Width:=Icon.Width;

[Terran]

Вы неправельно сохраняете. Вот в этой строчке:

Image1.Picture.SaveToFile(ExtractFi lePath(Application.ExeName) + 'Temp.bmp');

[DeDoK]

спасибо за пропущенную строку=) а как правильно сохранить то? подскажите плз?

[Terran]

Прошу прощения, я немного не туда глянул, ваш вариант хороший. И на всякий случай можно ещё так сохранять, мне кажется так будет надёжней:

Image1.Picture.SaveToFile(ExtractFi lePath(ParamStr(0))+'Temp.bmp');

[Dj_smart]

По моему будет лучше, если сохранять под тем же именем, но с другим расширением, там, где и исходный формат:

x:=ExtractFileName(OpenDialog1.FileName);
Image1.Picture.SaveToFile(ExtractFilePath(OpenDialog1.FileName)+Copy(x,0,pos('.',x)-1)+'.bmp');