Plot Numbers on a preset image (Dental Chart)

The easiest way is to make a table with columns: Action, Tooth Number, Part of a tooth. Action can be extraction, whitening, implant, bridge, crown… Tooth Number can be 1 for upper right molar and counting clockwise 32 for lower right molar. Part of a tooth can be crown, neck, root, apex or you can divide these into smaller sections. Now you need to make small pictures for every part of a tooth with different colors representing different actions, position them on the right place and according to the data from the table change their visibility to true or false.

I think it is better to keep it simple. Use Delphi. Create two forms in design view. Name them IntroForm and MainForm. Insert an image on the MainForm. Choose some panoramic teeth picture for it like you posted on:
http://www.dentrix.com/detail.asp?img=g2/features/upgraded_chart2.jpg
Name it MainPicture.
Use image editing program like Photoshop, Paint Shop Pro, GIMP (Freeware), Paint.NET (Freeware)... to cut, create and color small pieces from the original picture. Name them Tooth1Apex1Color1, Tooth1Apex1Color2...
Now place them on the MainForm.
We will try to make a code that will open specific record based on patient’s SSN.
Place Query on the IntroForm and connect it to some type of database.
(I assume you know this part, so I will skip details on database connections).
In the database you will have a table named Patients with the fields: Action (type=text), Tooth Number (type=number), Part of a tooth (type=text), SSN (type=number).
Place an Edit on the IntroForm and name it SSNBox.
Place a Button on the IntroForm and name it OpenMainForm.
Double click on the OpenMainForm button in design view and code editor will open.
Between “begin” and “end;” place this or modified code.

procedure TIntroForm.OpenMainFormClick(Sender: TObject);
begin
 try
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select [Action], [Tooth Number], [Part of a tooth] From [Patients] where [Patients].[SSN]='+SSNBox.Text);
Query1.Open;
 except
 end;

//Position MainPicture and switch on its visibility,
MainForm.MainPicture.Left:=0;
MainForm.MainPicture.Top:=0;
MainForm.MainPicture.Visible:=True;

//Position other picture and switch off their visibility,
MainForm.Tooth1Apex1Color1.Visible:=False;
MainForm.Tooth1Apex1Color1.Left:=100;
MainForm.Tooth1Apex1Color1.Top:=50;
MainForm.Tooth1Apex1Color2.Visible:=False;
MainForm.Tooth1Apex1Color2.Left:=120;
MainForm.Tooth1Apex1Color2.Top:=70;

//Enable some of the other pictures by criteria  
if ((Query1.FieldByName(' Action').AsString = ‘whitening’) and (Query1.FieldByName(' Tooth Number ').AsInteger = 1) and (Query1.FieldByName('Part of a tooth').Asstring = ‘Crown’)) then
MainForm.Tooth1Apex1Color1.Visible:=True;
if ((Query1.FieldByName(' Action').AsString = ‘extraction’) and (Query1.FieldByName(' Tooth Number ').AsInteger = 1) and (Query1.FieldByName('Part of a tooth').Asstring = ‘Crown’)) then
MainForm.Tooth1Apex1Color2.Visible:=True;
//Write as many if..thens as images you have

//Now switch off the IntroForm and switch on the MainForm
MainForm.Show;
IntroForm.Hide;

//

end;

// Hope this will help

Seems that there is problem on the page with single quotes formatting. Please revise this part.
//Enable some of the other pictures by criteria  
if ((Query1.FieldByName('Action').AsString = 'whitening') and (Query1.FieldByName('Tooth Number').AsInteger = 1) and (Query1.FieldByName('Part of a tooth').Asstring = 'Crown')) then
MainForm.Tooth1Apex1Color1.Visible:=True;
if ((Query1.FieldByName('Action').AsString = 'extraction') and (Query1.FieldByName('Tooth Number').AsInteger = 1) and (Query1.FieldByName('Part of a tooth').Asstring = 'Crown')) then
MainForm.Tooth1Apex1Color2.Visible:=True;
//Write as many if..thens as images you have

I made an example, download the file Dentist.rar from
http://www.esnips.com/nsdoc/1672a9ff-07d8-4f19-ae44-d41a898f6a29
Inside the archive you have: Delphi code, compiled executable and database.
Note that Dentist.exe and Database.mdb need to be in the same folder for application to work right.

Or if above direct link is not working visit
http://www.esnips.com/web/bxxxnsstuff/dentist.rar
and download Dentist.rar from the page.