ZoomValue

 

The following lines of code are all you need to add a textsize menu to your application, similar to the one in Internet Explorer.

Create 5 Menuitems: Smallest, Small, Medium, Larger, Largest. 
Set Medium.Checked to True;
Set the Tag-value for the Menuitems from 0 (smallest) to 4 (largest).
Connect the 5 OnClick-events to the same function:

procedure TForm1.Smallest1Click(Sender: TObject);
begin
 Smallest1.Checked:=False;
 Small1.Checked:=False;
 Medium1.Checked:=False;
 Larger1.Checked:=False;
 largest1.checked:=False;
 EmbeddedWb1.Zoom((Sender as TMenuitem).Tag);
 (Sender as Tmenuitem).checked:=True;
end;