<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
<div><font class="Apple-style-span" face="Tahoma" size="2">Hi Lazarus List,</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2">I am encountering a strange run time error... </font><span class="Apple-style-span" style="font-family: Tahoma; font-size: 10pt; ">Project island_maker.exe raised exception class 'EReadError' with message Invalid value for property</span></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2">Error reading CreateaNewIsland1.OnClick: Invalid value for property</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2">procedure TForm1.CreateANewIslandClick(Sender: TObject);</font></div><div><font class="Apple-style-span" face="Tahoma" size="2">begin</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> make_an_island;</font></div><div><font class="Apple-style-span" face="Tahoma" size="2">end; { CreateaNewIslandClick }</font></div><div><font class="Apple-style-span" face="Tahoma" size="2">{--------------------------------------------------------------------}</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2">// where make_an_island is procedure TForm1.make_an_island;</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2">object Form1: TForm1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Left = 131</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Height = 585</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Top = 47</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Width = 917</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Caption = 'Form1'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> ClientHeight = 565</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> ClientWidth = 917</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Menu = MainMenu1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> LCLVersion = '0.9.31'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object Memo1: TMemo</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Left = 0</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Height = 565</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Top = 0</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Width = 917</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Align = alClient</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> TabOrder = 0</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object MainMenu1: TMainMenu</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> left = 64</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> top = 48</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object File1: TMenuItem</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Caption = '&File'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object CreateANewIsland: TMenuItem</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Caption = '&Create A New Island'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> OnClick = CreateANewIslandClick</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object SaveIslandToFile: TMenuItem</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Caption = '&Save Island To File'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> OnClick = SaveIslandToFileClick</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object Options: TMenuItem</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Caption = '&Options'</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> OnClick = OptionsClick</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> object SaveDialog1: TSaveDialog</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> left = 131</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> top = 48</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> end</font></div><div><font class="Apple-style-span" face="Tahoma" size="2">end</font></div><div style="font-family: Tahoma; font-size: 10pt; "><br></div> </body>
</html>