Podmiana obrazka

Witam,
Mam problem z moim progsem. Jest w nim procedura podmiany obrazka po najechaniu na niego myszką. Wszystko działa dobrze oprócz jednej rzeczy. Odczytuje on z bitmapy Image1a.bmp i Image1b.bmp. Zakładajmy, że mam ten program w c:\prog, a jak przeniose progsa do folderu
c:\prog2\ to po najechaniu na ten obrazek, wywala mi błąd, że nie może znaleźć bitmapy Image1b, a ona jest w tym folderze prog2. I need [pomocy]!!

Kod źródłowy:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
Image : boolean;

{$R *.DFM}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image = False then Image1.Picture.LoadFromFile('Image1b.bmp');
Image := true;
end;

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

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Image = True then Image1.Picture.LoadFromFile('Image1a.bmp');
Image := False;
end;

end.

Z góry dzięki za odpowiedzi.

Image.Picture.LoadFromFile(ExtractFilePath(ApplicationExeName) + 'rysunek.bmp');