Графика Delphi

[tane]

Здравствуйте,уважаемые!
Задание.Для всех компонентов, размещенных на панели Рапеl1, запрограммировать перетягивание объектов по панели. Для этого создать для этих компонентов процедуры проработки событий Onmousedown (кнопка нажата), Onmousemove (кнопка мыши удерживается), Onmouseup(кнопка отпущена):

procedure TForm1.Label2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

  begin
x1:=x;y1:=y; flag:=True;
end;

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if flag then with TShape (sender) do begin Left:=Left+x-x1;Top:=Top+y-y1;   end;
end;

procedure TForm1.Label2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
flag:=False;
end;

Объяснение. Если во время выполнения программы кнопка мыши будет нажата в то время, когда ее курсор находится в области компонента Label2, переменные х1 и х2 запоминают координаты размещения фигуры, а флажок flag получит значение True, которое будет означать «перетягивание началось». Если кнопку мыши не отпускать и двигаться, то будет работать процедура Tform1. Label2mousemove, в которой будет происходить перечисление координат объекта Label1 относительно системы координат формы. После того, как кнопка мыши будет отпущена, сработает процедура Tform1. Label2mouseup, где флажок flag получит значение False — перетягивание закончилось.

Вопросы.
1)Здесь я не вижу объявления переменных х1,у1,поэтому компилятор выдает ошибку.2)Тоже самое undeclared identifier 'flag'.
Как решить?

[Serge_Bliznykov]

описать переменные..
например, сделать их свойством формы (класса) TForm1

type
  TForm1 = class(TForm)
  procedure Label2MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
  procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  procedure Label2MouseUp(Sender: TObject; Button: TMouseButton;  
  private
    x1,y1 : integer;
    flag : boolean;
  public
    { Public declarations }
  end;

или вообще, глобальные переменные использовать:

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  x1,y1 : integer;
  flag : boolean;

[tane]

Спасибо большое)

[Arigato]

Первый вариант лучше.