как убрать мерцание из Image'a?

[Sergeu]

народ делаю прогу и испльзую картинки чтобы всё подходило под общий стил так вот когда я навожу на мыш над кнопкой то Image под названием FOTO начинает жутко мерцать, как убрать это мерцание?

procedure TForm_KOM_MAG.Image13MouseMove(Send er: TObject;
Shift: TShiftState; X, Y: Integer);
begin
foto.Picture.LoadFromFile('..\DAta\ db\Job\KOL\1.jpg');
Image13.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\2.bmp');
label2.Font.Color:=clRed;
end;

это при навидение на кнопку

procedure TForm_KOM_MAG.ScrewPanel1MouseMove( Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
Image13.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');
Image14.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');
Image15.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');
Image16.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');
Image17.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');
Image18.Picture.LoadFromFile('..\DA ta\Image\Button_Comp\1.bmp');

label2.Font.Color:=clMaroon;
end;

это при наведении на панель где расположенны снопки

[DomiNick]

Хм... Попробуй при создании формы написать:

Form1.DoubleBuffered:=True;

[Sergeu]

не не помогает((

[Neeter]

в секции private формы добавьте две переменные:

 private
   b, b1: boolean;

В onCreate формы присвойте им значение false:

procedure TForm1.FormCreate(Sender: TObject);
begin
 b := false;
 b1 := false;
end;

И измените код:

procedure TForm_KOM_MAG.Image13MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
 if not b then
 begin
  foto.Picture.LoadFromFile('..\DAta\db\Job\KOL\1.jp g');
  Image13.Picture.LoadFromFile('..\DAta\Image\Button _Comp\2.bmp');
  label2.Font.Color:=clRed;
  b := not b:
 end;
end; 

procedure TForm_KOM_MAG.ScrewPanel1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
 if not b then
 begin
  Image13.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image14.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image15.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image16.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image17.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image18.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');

  label2.Font.Color:=clMaroon;
  b1 := not b1;
 end;
end;

[Sergeu]

да это сробатывает но мне надо немного по другому мне надо чтоб навёл на одну кнопку появилась одна кртинка навёл на фторую другая и чтоб не мерцали, а так получаеться навёл на одну и появилась нужная картинка на вёл на фторую и 0 эфекта! (это если писать такойже код на другой кнопке) а если не писать то рисунок меняеться но мерцание появляеться!

[Neeter]

ай да точно
я оплошал чуть-чуть:

procedure TForm_KOM_MAG.ScrewPanel1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
 if not b1 then
 begin
  Image13.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image14.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image15.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image16.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image17.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');
  Image18.Picture.LoadFromFile('..\DAta\Image\Button _Comp\1.bmp');

  label2.Font.Color:=clMaroon;
  b1 := not b1;
 end;
end;

[Sergeu]

не такое тоже не сробатывает но я понял и протсо надо зделать так

procedure TForm_KOM_MAG.ScrewPanel1MouseMove( Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
Image13.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');
Image14.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');
Image15.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');
Image16.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');
Image17.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');
Image18.Picture.LoadFromFile('..\DA ta\Image\Button _Comp\1.bmp');

b:=false;
label2.Font.Color:=clMaroon;
end;

Вот с таким кодом прога делает что мне надо и буз этого раздрожительного мепрцания) ну всё ровно спосибо просто пустил по нужному пути)))