int_wall_id := qTree.FieldByName('Table_ID_Link').AsInteger;
Wall_Dict_Name := InputBox('Введите название стены','Название','Шаблон стены');
Wall_ID_Gen.Open;
new_wall_id := Wall_ID_Gen.FieldByName('Wall_ID').AsInteger;
Wall_ID_Gen.Close;
qWallInsert.Open;
qWallInsert.Insert;
qWallInsert.FieldByName('Wall_ID').AsInteger := new_wall_id;
qWallInsert.FieldByName('WALL_NAME').AsString := Wall_Dict_Name;
qWallInsert.Post;
qWallInsert.Close;
spWallCopy.ParamByName('WALL_ID_SOURCE_IN').AsInteger := int_wall_id;
spWallCopy.ParamByName('WALL_ID_TARGET_IN').AsInteger := new_wall_id;
spWallCopy.ExecProc;
ShowMessage('Данные о стене '+qTree.FieldByName('TITILE').AsString+' сохранены');
Wall_Dict_Modal := TfmDictWall.Create(Application);
Wall_Dict_Modal.Is_Only_Show :=True;
Wall_Dict_Modal.qWall.Locate('Wall_ID',new_wall_id,[]);
Wall_Dict_Modal.ShowModal;

Пусть все    знают !!!!!!