Проблема с TBitmap

[ImmortalAlexSan]

Не могу понять в чем дело! Пытаюсь выделить контур рисунка, посредством смещения вниз, вверх, влево, и вправо, ну у видите в моей программе, которую я выложил. Но вот беда! Когда меняю независимые друг от друга битмапы, предварительно присвоив каждому начальное ОДИНАКОВОЕ значение, то они начинают менять последний измененный, т.е. :
fdown первый в коде,
ftop меняет fdown
fright меняет ftop
fleft меняет fright
Но так не должно быть! А ещё какого-то лешего меняется и Image1 после всех манипуляций! Посмотрите код пожалуйста. Целый день бьюсь.

Кто скачал, признавайтесь Помогите с вопросом этим.

[alexBlack]

Признаюсь Делайте в коде отступы, не удобно же.
По вопросу

Сообщение от ImmortalAlexSan

... Когда меняю независимые друг от друга битмапы, предварительно присвоив каждому начальное ОДИНАКОВОЕ значение....

Это:
fTop:=img;
fDown:=img;
fRight:=img;
fLeft:=img;
замена ссылок. Теперь все переменные ссылаются на один объект. Отсюда такое поведение. Попробуйте подругому - в условиях брать пикселы из img, а менять их в ftop, fdown...

[ImmortalAlexSan]

alexBlack, действительно проблема была в этих строках, спасибо! Исправил так:

fTop.Assign(img);
fDown.Assign(img);
fRight.Assign(img);
fLeft.Assign(img);
//и сделал так, чтобы рисовалось не на битмапе, а сразу на Image1
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if not dwn then exit;
Image1.Canvas.LineTo(x,y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then dwn:=false;
end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
dwn:=true;
Image1.Canvas.Pen.Color:=clBlack;
Image1.Canvas.Pen.Width:=20;
if button=mbLeft then
Image1.canvas.moveTo(x,y);
end;