How to implement adding to a binary tree?

Question

SQL

It doesn't matter which EP. I see the same thing everywhere: insertion into a binary search tree, please help me. Here is the structure:
PTree = ^TTree;
TTree = record
Data: menu;
Left, Right: PTree;
end;