При наведении курсора на кнопку меняется картинка

[Kurd57]

Всем привет. Подобной темы не нашел, решил создать. У меня есть кнопки и имэйдж, когда мышь на кнопке у меня рисуется картинка, но при дальнейшем движении по этой же кнопке у меня происходит постоянная перерисовка и моргание картинки...Не пойму как это устранить...Пробовал заводить переменную типа "boolean" которая следит, если картинка была отрисована, то больше не нужно, но этот метод не работает. Помогите, вот код)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('0003.jpg');
end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('0002.jpg');
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('0001.jpg');
end;

end.

[tim21701]

А Вам обязательно нужно использовать LoadFromFile? Может проще кинуть ImageList и подгружать от туда? ))

Я у себя сделал вот так:

[Rin]

var 
Form1:TForm1;
img3:boolean=false;
.................
if img3=false then
begin
 Image1.Picture.LoadFromFile('0003.jpg');
 img3:= not img3;
end;

[Kurd57]

Спасибо всем кто ответил в теме. Сколько людей-столько мнений. Я все-таки решил задачу по своему, вот так.

var
  Form1: TForm1;
  Pict: Boolean;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Pict = true then Application.ProcessMessages
  else
    begin
    Image1.Picture.LoadFromFile('0001.jpg');
    Pict:=true;
    end;
end;

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

[Пепел Феникса]

но совет на будущее, выкиньте вечную загрузку из файла.