Как отменить изменения изображения?

[ALEX_RAS]

Использую процедуру подсвечивания изображения.
Вот код:

//ПОДСВЕЧИВАНИЕ
procedure Highlight(aSource, ATarget: TBitmap; AColor: TColor);
var i, j: Integer;
   s, t: pRGBTriple;
   r, g, b: byte;
   cl: TColor;
 begin
   cl := ColorToRGB(AColor);
   r := GetRValue(cl);
   g := GetGValue(cl);
   b := GetBValue(cl);
   aSource.PixelFormat := pf24bit;
   ATarget.PixelFormat := pf24bit;
   ATarget.Width := aSource.Width;
   ATarget.Height := aSource.Height;
   for i := 0 to aSource.Height - 1 do 
   begin
     s := ASource.Scanline[i];
     t := ATarget.Scanline[i];
     for j := 0 to aSource.Width - 1 do
     begin
       t^.rgbtBlue := (b * s^.rgbtBlue) div 255;
       t^.rgbtGreen := (g * s^.rgbtGreen) div 255;
       t^.rgbtRed := (r * s^.rgbtRed) div 255;
       inc(s);
       inc(t);
     end;
   end;                                                         
 end;

Потом по нажатию по кнопке вызываю эту процедуру:

procedure TForm1.Button4Click(Sender: TObject);
var Bitmap: TBitmap;
 begin
Bitmap:=Image2.Picture.Bitmap;
Bitmap.PixelFormat := pf24Bit;
Highlight(Bitmap,Bitmap,ColorBox1.Selected);
Image2.Refresh;
 end;

КАК ЗАПОМНИТЬ ИЗОБРАЖЕНИЕ ДО ВЫЗОВА ЭТОЙ ПРОЦЕДУРЫ???(сделать отмену изменения изображения)

Пробывал занести изображение до изменения в переменную типа ТBitmap, но ни чего не получилось...
ПОМОГИТЕ ПОЖАЛУЙСТА!!!

[Stilet]

А зачем запоминать? НАсколько я из кода понял ты работаешь с копией, ее "подсвечиваешь" но на экране новосформированное изображение не отображается, так как ты это не прописал.