[s0Creator]

Пока не совсем понял что ты хочешь перетаскивать
но в общих чертах события можешь привязать так:

Код:

  TForm1 = class(TForm)
    //....................
  public
    { Public declarations }
    procedure LabsClick(Sender: TObject);
  end;
    //....................
implementation
    //....................
procedure TForm1.LabsClick(Sender: TObject);
begin
  if Sender is TLabel then
  begin
    (Sender as TLabel).Caption := 'my name - ' + (Sender as TLabel).Name;
    // .......
  end
  else
  if Sender is TEdit then
  begin
    (Sender as TEdit).Text := 'my name - ' + (Sender as TLabel).Name;
    // .......
  end
end;
    //....................
  Lab.OnClick := LabsClick;
    //....................

и еще вопрос

Код:

For i:=1 to Form1.PageControl1.PageCount+1 do

при PageCount = 1 цыкл выполнится 2 раза