<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns="http://www.w3.org/TR/REC-html40" xmlns:o =
"urn:schemas-microsoft-com:office:office" xmlns:w =
"urn:schemas-microsoft-com:office:word" xmlns:st1 =
"urn:schemas-microsoft-com:office:smarttags"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content=Word.Document name=ProgId>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META content="Microsoft Word 10" name=Originator><LINK
href="cid:filelist.xml@01C4041E.10270860" rel=File-List><o:SmartTagType
name="place"
namespaceuri="urn:schemas-microsoft-com:office:smarttags"></o:SmartTagType><!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:EnvelopeVis/>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:UseFELayout/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if !mso]>
<STYLE>st1\:* {
        BEHAVIOR: url(#default#ieooui)
}
</STYLE>
<![endif]-->
<STYLE>@font-face {
        font-family: SimSun;
}
@font-face {
        font-family: @SimSun;
}
@page Section1 {size: 612.0pt 792.0pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin: 35.4pt; mso-footer-margin: 35.4pt; mso-paper-source: 0; }
P.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; mso-style-parent: ""; mso-pagination: widow-orphan; mso-fareast-font-family: SimSun
}
LI.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; mso-style-parent: ""; mso-pagination: widow-orphan; mso-fareast-font-family: SimSun
}
DIV.MsoNormal {
        FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; mso-style-parent: ""; mso-pagination: widow-orphan; mso-fareast-font-family: SimSun
}
A:link {
        COLOR: blue; TEXT-DECORATION: underline; text-underline: single
}
SPAN.MsoHyperlink {
        COLOR: blue; TEXT-DECORATION: underline; text-underline: single
}
A:visited {
        COLOR: purple; TEXT-DECORATION: underline; text-underline: single
}
SPAN.MsoHyperlinkFollowed {
        COLOR: purple; TEXT-DECORATION: underline; text-underline: single
}
SPAN.EmailStyle17 {
        COLOR: windowtext; FONT-FAMILY: Arial; mso-style-type: personal-compose; mso-style-noshow: yes; mso-ansi-font-size: 10.0pt; mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Arial; mso-hansi-font-family: Arial; mso-bidi-font-family: Arial
}
SPAN.SpellE {
        mso-style-name: ""; mso-spl-e: yes
}
SPAN.GramE {
        mso-style-name: ""; mso-gram-e: yes
}
DIV.Section1 {
        page: Section1
}
</STYLE>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
        {mso-style-name:"Table Normal";
        mso-tstyle-rowband-size:0;
        mso-tstyle-colband-size:0;
        mso-style-noshow:yes;
        mso-style-parent:"";
        mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
        mso-para-margin:0cm;
        mso-para-margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:10.0pt;
        font-family:"Times New Roman";}
</style>
<![endif]--></HEAD>
<BODY lang=EN-US style="tab-interval: 36.0pt" vLink=purple link=blue>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2>Paul,</FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2>That line 84 looks ok to me, but I see some other
anomalies. </FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2>Your main form is FormMain: TFormMain, yet I see: <SPAN
class=GramE><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">procedure</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">
Tform1.Formestroy(Sender: <SPAN
class=SpellE>TObject</SPAN>);</SPAN></FONT></FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">That one will surely upset the
compiler.</SPAN></FONT></FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">hope this
helps,</SPAN></FONT></FONT></SPAN></DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT></FONT></SPAN> </DIV>
<DIV dir=ltr align=left><SPAN class=781213711-07032004><FONT face=Arial
color=#0000ff size=2><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Erwin.</SPAN></FONT></DIV></FONT></SPAN><BR>
<BLOCKQUOTE dir=ltr
style="PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #0000ff 2px solid; MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> simpits-tech-bounces@simpits.org
[mailto:simpits-tech-bounces@simpits.org] <B>On Behalf Of </B>paul
needham<BR><B>Sent:</B> Sunday, March 07, 2004 9:28<BR><B>To:</B>
simpits-tech@simpits.org<BR><B>Subject:</B> [simpits-tech] Any Delphi GURU out
there - or wheres Roy<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Hi
all<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I am trying to use FSUIPC and have
with my limited programming skills <SPAN class=GramE>[ <SPAN
class=SpellE>pascal</SPAN></SPAN> and C 8 years ago ! ]<SPAN
class=GramE>successfully</SPAN> complied and hacked the <SPAN
class=SpellE>UIPCHello</SPAN> world file but have failed with the following
code.<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I want to load a bitmap of my
cockpit instruments into the background to a form, I have go it to 800*640 and
256 <SPAN class=SpellE>colours</SPAN> and made a resource file of
it.<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">The code below was found on the
Net but was for </SPAN></FONT><st1:place><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Delphi</SPAN></FONT></st1:place><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> 1 or 2
and I have </SPAN></FONT><st1:place><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Delphi</SPAN></FONT></st1:place><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> 7 it
fails with the <SPAN class=GramE>following
:</SPAN>-<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>84):
Object or class type required<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>85):
Undeclared identifier: '<SPAN
class=SpellE>LoadFromResourceName</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>88): ';'
expected but '.' found<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>90):
Undeclared identifier: '<SPAN
class=SpellE>BackgroundBitmap</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>90):
Missing operator or semicolon<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>93):
Undeclared identifier: '<SPAN
class=SpellE>Formpaint</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>95):
Undeclared identifier: 'Canvas'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>95):
Undeclared identifier: '<SPAN
class=SpellE>BackgroundBitmap</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>98):
Identifier <SPAN class=SpellE>redeclared</SPAN>: '<SPAN
class=SpellE>TFormMain.FormCreate</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>102):
Object or class type required<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>104):
Undeclared identifier: '<SPAN
class=SpellE>LoadFromFile</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>105):
Undeclared identifier: 'Form1'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>105):
Incompatible types: '<SPAN class=SpellE>TBitmap</SPAN>' and '<SPAN
class=SpellE>tagBITMAP</SPAN>'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>106):
Missing operator or semicolon<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>108):
Missing operator or semicolon<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN>[Error] <SPAN class=SpellE><SPAN
class=GramE>MainFormback.pas</SPAN></SPAN><SPAN class=GramE>(</SPAN>109):
Undeclared identifier: 'Free'<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN class=GramE>{ Private</SPAN>
declarations }<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
style="mso-tab-count: 1">
</SPAN><SPAN style="mso-spacerun: yes"> </SPAN><SPAN class=SpellE><SPAN
class=GramE>BackgroundBitmap</SPAN></SPAN><SPAN class=GramE> :</SPAN><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN class=SpellE>TBitmap</SPAN>
;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
style="mso-tab-count: 1">
</SPAN><SPAN style="mso-spacerun: yes"> </SPAN><SPAN
class=GramE>public</SPAN><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
style="mso-tab-count: 1">
</SPAN><SPAN style="mso-spacerun: yes"> </SPAN><SPAN class=GramE>{
Public</SPAN> declarations }<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
style="mso-tab-count: 1">
</SPAN><SPAN style="mso-spacerun: yes"> </SPAN><SPAN
class=GramE>end</SPAN>;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><SPAN class=SpellE><SPAN
class=GramE><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">var</SPAN></FONT></SPAN></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN class=SpellE>FormMain</SPAN>:
<SPAN class=SpellE>TFormMain</SPAN>;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">implementation</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">{$R
*.DFM}<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">{$R
262-ins-bk.res}<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Uses<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
class=SpellE>FPCuser</SPAN>;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">procedure</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> <SPAN
class=SpellE>TFormMain.Formcreate</SPAN>(Sender: <SPAN
class=SpellE>TObject</SPAN>);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="TEXT-INDENT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">begin</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><SPAN class=GramE><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">line</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> 84<SPAN
style="mso-spacerun: yes"> </SPAN><SPAN
class=SpellE>BackgroundBitmap</SPAN> := <SPAN
class=SpellE>TBitmap.create</SPAN>;<SPAN
style="mso-tab-count: 2">
</SPAN><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=SpellE><SPAN
class=GramE><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">BackgroundBitmap.LoadFromResourceName</SPAN></FONT></SPAN></SPAN><SPAN
class=GramE><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">(</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">hInstance,'262-ins-bk');<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">end</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">procedure</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">
Tform1.Formestroy(Sender: <SPAN
class=SpellE>TObject</SPAN>);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">begin</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=SpellE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">BackgroundBitmap.Free</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">end</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">procedure</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"> <SPAN
class=SpellE>TFormmain.Formpaint</SPAN>(Sender: <SPAN
class=SpellE>TObject</SPAN>);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">begin</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><SPAN
style="mso-spacerun: yes"> </SPAN><SPAN class=SpellE><SPAN
class=GramE>Canvas.Draw</SPAN></SPAN><SPAN
class=GramE>(</SPAN>0,0,BackgroundBitmap);<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><SPAN class=GramE><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">end</SPAN></FONT></SPAN><FONT
face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">;<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Sorry for long boring post !!!
<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p> </o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt; mso-no-proof: yes">Regards
Paul<o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt; mso-no-proof: yes"> <o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt; mso-no-proof: yes">Despite constant warnings, I have
never met anybody who has had their leg broken by a
swan.</SPAN><o:p></o:p></FONT></P>
<P class=MsoNormal><FONT face="Times New Roman" size=3><SPAN
style="FONT-SIZE: 12pt"><o:p> </o:p></SPAN></FONT></P></DIV><BR>
<P><FONT size=2>---<BR>Outgoing mail is certified Virus Free.<BR>Checked by
AVG anti-virus system (http://www.grisoft.com).<BR>Version: 6.0.613 / Virus
Database: 392 - Release Date:
04/03/2004<BR></FONT></P></BLOCKQUOTE></BODY></HTML>