delphi Imge控件加载一个图片 点击一上显示换成另外一个图片 再点击一上又换成第一张图片 怎么实现

delphi Imge控件加载一个图片 点击一下显示换成另外一个图片 再点击一下又换成第一张图片 如何实现？
delphi Imge控件加载一个图片 点击一下显示换成另外一个图片 再点击一下又换成第一张图片 如何实现？


我是这样写的 
procedure TForm1.Image1Click(Sender: TObject);
begin

Image1.Picture.Assign(Image2.Picture.Graphic);

end;

点击一下image1的图片变成了image2的图片  但是我再点击这个图片的时候 它没反应 我想让它变回image1的图片  请问该怎么实现？
[解决办法]
procedure TSysAboutForm.FormShow(Sender: TObject);
var SysIco:string;
begin
  if SysPubUnit.SysId = 'S' then
    SysIco := '../skin/SysNSetup.ICO'
  else if SysPubUnit.SysId = 'N' then
    SysIco := '../skin/SysNModel.ICO'
  else if SysPubUnit.SysId = 'O' then
    SysIco := '../skin/SysNClient.ICO';
  if FileExists(SysIco) then
    ProgramIcon.Picture.LoadFromFile(SysIco);
end;
我自己寫的權限系統ID加載圖片，可以參考 下
[解决办法]
先把路徑存起來，，，
ProgramIcon.Picture.LoadFromFile(SysIco);你的只要這句話就OK了,,,
[解决办法]
做个标记，图像1是1，图像2是2，点击时判断为1时，调用2，为2时调用1
[解决办法]

procedure TForm1.Image1Click(Sender: TObject);
var
  tmpPicture:TPicture;
begin
  tmpPicture:=TPicture.Create;
  tmpPicture.Assign(Image1.Picture);
  Image1.Picture.Assign(Image2.Picture.Graphic);
  Image2.Picture.Assign(tmpPicture);
  tmpPicture.Free;
end;