unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 ComCtrls, LCLType;

type

 { TForm1 }

 TForm1 = class(TForm)
   E: TEdit;
   T: TTreeView;
   procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
   procedure TChange(Sender: TObject; Node: TTreeNode);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;
 N: Integer=0;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.TChange(Sender: TObject; Node: TTreeNode);
begin
E.Text:=Node.Text;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Shift=[ssCtrl] then
 if Key=VK_N then
 with T do
 begin
 N:=N+1;
 Items.Clear;
 Items.AddChildObject(nil, 'u1', pointer(1));
 Items.AddChildObject(nil, 'u2', pointer(2));
 end;
end;

end.