Проблема с рисованием на Timage Delphi7

[Dalagardi]

Не отображается линия при рисовании на Timage

procedure TForm3.PenClick(Sender: TObject);
begin
glob:=1;
image1.picture.Bitmap.Canvas.Pen.Mode:=pmBlack;
end;

{ÊÍÎÏÊÀ ÂÍÈÇ}
procedure Tform3.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case glob of
{1}  1:Begin
    if button=mbLeft then
                      Begin
                      FStart:=point(x,y);
                      FEnd:=FStart;
                      FMD:=true;
                      image1.picture.Bitmap.Canvas.Pen.Color:=clBlack;
                      End;
      end;
{2}
end;

end;
{\ÊÍÎÏÊÀ ÂÍÈÇ}

{ÄÂÈÆÅÍÈÅ ÊÓÐÑÎÐÀ}
procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
case glob of
1: if FMD=true then
                Begin
                image1.Picture.Bitmap.canvas.Pen.Mode:=pmNotXor;
                image1.Picture.Bitmap.canvas.MoveTo(Fstart.X,Fstart.Y);
                image1.Picture.Bitmap.Canvas.LineTo(Fend.X,Fend.Y);
                image1.picture.Bitmap.Canvas.MoveTo(Fstart.X,fstart.Y);
                image1.picture.Bitmap.Canvas.LineTo(x,y);
                Fend:=point(x,y);

                end;
end;
end;
{\ÄÂÈÆÅÍÈÅ ÊÓÐÑÎÐÀ}

{ÎÒÏÓÑÊÀÍÈÅ ÌÛØÈ}
procedure TForm3.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
case glob of
1:FMD:=false;
end;
end;
{\ÎÒÏÓÑÊÀÍÈÅ ÌÛØÈ}

Также пробовал рисовать на канве Timage, результат один

[Vladya]

смотрите там все работает