procedure TMainFrm.Button5Click(Sender: TObject); 
begin 
  FontDialog1.Font := MyCAD1.GetSelectedShape.Font as TFont; 
  if FontDialog1.Execute then 
    MyCAD1.GetSelectedShape.Font.Assign(FontDialog1.Font); 
end;