求动态更换程序图片思路和方法（）

求动态更换程序图片思路和方法（高手进）
我有一个程序采用的image1控件，我想用一个配置程序更换第一程序的图片

第一个程序里有这样的接口脚本

Delphi(Pascal) code

procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin                      if   (ssLeft   in   Shift)   then   begin                      ReleaseCapture;                      SendMessage(MainForm.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);                      end;end;end.procedure TMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);beginend;