Du könntest das Bild vor jedem Zeichnen in ein TBitmap speichern, und dann bei Bedarf wieder laden. So könnte es aussehen:
Delphi-Quellcode:
procedure TForm1.SaveImageState(Image: TImage; var bmp: TBitmap);
begin
bmp.Assign(Image.Picture.Graphic);
end;
procedure TForm1.LoadImageState(Image: TImage; bmp: TBitmap);
begin
Image.Picture.Graphic.Assign(bmp);
end;