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

Delphi(Pascal) code

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;

简单的交换。。不知道您满意否？