PaintBox и только

[Baburek]

Пишу графический редактор на используя компонент PaintBox. Дошел до самых интересных пунктов, которые необходимо выполнить:
1. Открыть/Сохранить картинку. Пишу следующее:

procedure TForm1.N1Click(Sender: TObject);

var b:tbitmap;
begin
b:=tbitmap.Create;
if dlgOpenPic1.Execute then begin
b.LoadFromFile(dlgOpenPic1.FileName);
paintbox.Canvas.Draw(0,0,b);
end;
end;


procedure TForm1.N2Click(Sender: TObject);
var s:tbitmap;
begin
s:=tbitmap.Create;
if dlg1.Execute then begin
s.SaveToFile(dlg1.FileName);
paintbox.Canvas.Draw(0,0,s);
end;
 end;
end.

Результат: Происходит открытие картинки, но не могу нормально редактировать(сразу же исчезает). То что рисую в PaintBox тоже не сохраняется. Я знаю, что PaintBox лишь отображает "нарисованное" поэтому использую Bitmap где хранится сам рисунок.

2. Копирование/Вставка.
Подскажите каким образом в PaintBox можно скопировать и вставить кусок изображения пожалуйста.

[_SERGEYX_]

То что рисую в PaintBox тоже не сохраняется

А что, собственно, должно сохраняться.

var s:tbitmap;
begin
s:=tbitmap.Create; //Создали новый bitmap
if dlg1.Execute then begin
s.SaveToFile(dlg1.FileName); //!!! и сохранили эту пустоту в файл
paintbox.Canvas.Draw(0,0,s);
end;

Занеси bitmap в глобальные переменные и работай с ним. Зачем второй раз создавать?

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