Помогите обновить TImage

[DemonXT]

У меня на форме лежит компанент лежит компанент TImage - iPating.
Дополнительно включил свойства iRating.Transparent:=True; так как нужна прозрачность. iRating.AutoSize:=True;
Мне нужно чтоб по клику менялась картинка из контейнера TImaseList - IListAll. Смена происходит, но вот картинки накладываются друг на друга. Пробовал уже всяко играться с обновлением канвы, но всё в пустую.
Вот на чём остановился:

procedure TfmPub.iRatingClick(Sender: TObject);
begin
  if iRating.HelpKeyword='x1' then
  begin
    iRating.HelpKeyword:='x2';
    iRating.Picture.Bitmap.FreeImage;
    IListAll.GetBitmap(14,iRating.Picture.Bitmap);
    iRating.Repaint;
  end
  else
  begin
    iRating.HelpKeyword:='x1';
    iRating.Picture.Bitmap.FreeImage;
    iRating.Refresh;
    IListAll.GetBitmap(13,iRating.Picture.Bitmap);
    iRating.Repaint;
  end;
end;

Подскажите, как сделать корректное обновление компанента?

[Kotofff]

Попробуй

iRating.Refresh;

вместо

iRating.Repaint;

[DemonXT]

Сообщение от Kotofff

Попробуй

iRating.Refresh;

вместо

iRating.Repaint;

Попробовал. Стало ещё хуже. Картинки всё также накладываются + пропала прозрачность.

[Лукманов Александр]

попробуй

iRating.Picture.Bitmap.Empty;

[DemonXT]

Сообщение от Лукманов Александр

попробуй

iRating.Picture.Bitmap.Empty;

Не помогает!

[zCHIP]

вроде так все работает. Delphi 7, изображения в ImageList'е в 24 битной палитре в формате bmp

procedure TForm1.Image1Click(Sender: TObject);
begin
//change
  if Image1.HelpKeyword = 'x1' then
    begin
     Image1.HelpKeyword:='x2';
     ImageList1.GetIcon(0,Image1.Picture.Icon);
    end
  else
    begin
     Image1.HelpKeyword:='x1';
     ImageList1.GetIcon(1,Image1.Picture.Icon);
    end;
end;

[DemonXT]

Сообщение от zCHIP

вроде так все работает. Delphi 7, изображения в ImageList'е в 24 битной палитре в формате bmp

Очень оригинально, а главное эффективно. Большое спасибо, что помогли мне разрешить проблему над которой я бился пару дней.