Медленная загрузка изображения из TImageList

[k1r1ch]

Здравствуйте! Возникла одна проблемка. Есть 3 ImageList'а. В одном 5 картинок, в других двух по 6 штук. В зависимости от ситуации загружается картинка из определенного листа в компонент TImage, например вот так (это когда из второго листа, не в этом суть):

  ImgR.GetBitmap(Random(5), ImgCurrent.Picture.Bitmap);

При закрытии формы делаю так:

  ImgCurrent.Picture := nil;

Вроде картинка с имджа должна стереться. Но при следующем вызове формы и открытии картинки примерно в каждом третьем случае на долю секунды проглядывает предыдущая картинка, которая потом заменяется на новую. Почему?

[FaTaL]

Вы форму то точно из памяти выгружаете?

[k1r1ch]

Форма, на которой все происходит - не основная. Она просто закрывается методом Close, а потом открывается методом Show

[FaTaL]

Ну вы форму когда создаёте? Перед показом или форма создаётся с загрузкой приложения и всегда висит в памяти?

[k1r1ch]

2-ой вариант
--------------------
Ну прогресс определенный появился, когда я заменил обнуление Picture на рисование прямоугольника:

  ImgCurrent.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, 256, 256));

Теперь предыдущая картинка видна только в каждом пятом случае
--------------------
Теме ап! Меня ж такой результат не устраивает...

Теме АП! Очень хотелось бы услышать ответ...

[Stilet]

А может ты весь текст проекта покажешь?
И кстати

ImgCurrent.Picture.Bitmap.FreeImage

подойдет?

[k1r1ch]

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

ImgCurrent.Picture.Bitmap.FreeImage

Если так сделать, то следующее изображение обрежется по контуру непрозрачности предыдущего, например, если был круг (на белом фоне), а следующий квадрат, то квадрат будет обрезан кругом.
Ну в общем, вот код той формы:

unit Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ImgList;

type
  TSplashF = class(TForm)
    Timer: TTimer;
    ImgCurrent: TImage;
    ImgW: TImageList;
    ImgR: TImageList;
    ImgRes: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ShowSplash(SplashType: integer; TimeInt: integer = 1000;
	Mark: integer = 1);
    procedure ShowResultImg(Param: integer);
    procedure ShowRightImg;
    procedure ShowWrongImg;
    procedure CloseForm;
  end;

const
  SPLASH_RIGHT = 1;
  SPLASH_WRONG = 2;
  SPLASH_RESULT = 3;

var
  SplashF: TSplashF;

implementation

uses Main;

{$R *.dfm}

procedure TSplashF.CloseForm;
begin
  //ImgCurrent.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, 256, 256));
  Timer.Enabled := false;
  SplashF.Close;
end;

procedure TSplashF.FormClick(Sender: TObject);
begin
  CloseForm;
end;

procedure TSplashF.FormCreate(Sender: TObject);
begin
  ImgCurrent.Left := (Screen.Width-ImgCurrent.Width) div 2;
  ImgCurrent.Top := (Screen.Height-ImgCurrent.Height) div 2;
end;

procedure TSplashF.FormKeyPress(Sender: TObject; var Key: Char);
begin
  CloseForm;
end;

procedure TSplashF.ShowRightImg;
begin
  if Main.KidsMode then ImgR.GetBitmap(Random(5), ImgCurrent.Picture.Bitmap)
  else ImgR.GetBitmap(0, ImgCurrent.Picture.Bitmap);
end;

procedure TSplashF.ShowWrongImg;
begin
  if Main.KidsMode then ImgW.GetBitmap(Random(5), ImgCurrent.Picture.Bitmap)
  else ImgW.GetBitmap(0, ImgCurrent.Picture.Bitmap);
end;

procedure TSplashF.ShowResultImg(Param: integer);
begin
  ImgRes.GetBitmap(Param-1, ImgCurrent.Picture.Bitmap);
end;

procedure TSplashF.ShowSplash(SplashType: integer; TimeInt: integer = 1000; Mark: integer = 1);
begin
  case SplashType of
    SPLASH_RIGHT: ShowRightImg;
    SPLASH_WRONG: ShowWrongImg;
    SPLASH_RESULT: ShowResultImg(Mark);
  end;
  Timer.Interval := TimeInt;
  Timer.Enabled := true;
  SplashF.ShowModal;
end;

procedure TSplashF.TimerTimer(Sender: TObject);
begin
  CloseForm;
end;

end.

На форме три имейдж листа: с картинками оценок (ImgRes), с картинками правильного ответа (ImgR), с картинками неправильного ответа (ImgW). Также там есть таймер Timer.
Из главной формы это окно вызывается при верном/неверном ответе, а также в конце теста для выставления оценки (ну все уже поняли, что это очередная тестирующая программа ) методом ShowSplash.
---------------------------------------------------------------------------------
Может проект скинуть, тогда и сами увидите? А то ответа нет, а проблема есть...