[PhoeniX]

Код:

var
  tempCanv: TCanvas;
begin
  tempCanv:=TCanvas.Create;  //Непомню, может, надо указывать "родителя"....
  tempCanv.Assign(PaintBox1.Canvas); //Бекапим
  ...
  //Делаем что надо...
  ...
  PaintBox1.Canvas.Assign(tempCanv); //Восстанавливаем
  ...
  tempCanv.Free; //Не забываем прибраться за собой)))
end;

Не проверял, но вроде всё так.