procedure TForm1.Button1Click(Sender: TObject);
begin
　Image1.Picture.LoadFromFile('c:\a.bmp');
　Sleep(1000);
　Image1.Picture.SaveToFile('c:\a.bmp');
end;