procedure TForm4.FlashMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
    if isDown then
    begin
        with Flash.FlashCanvas do
        begin
          Clear;
          case RGType.ItemIndex of
           0:begin
              Pen.Color := clBlue;
              MoveTo(PStart.X, PStart.Y);
              LineTo(X, Y);
             end;
           1:begin
              Pen.Color := clGreen;
              Rectangle(PStart.X, PStart.Y, X, Y);
             end;
           2:begin
              Pen.Color := clRed;
              Ellipse(PStart.X, PStart.Y, X, Y);
             end;
          end;
        end;
        Flash.UpdateCanvas;
    end;
end;