<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML DIR=ltr><HEAD><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"></HEAD><BODY>
<DIV class=Section1>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Hi guys,</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I have a quick question related to
some automation work I am doing and hoped that one of you may be able to shed
light. Anyway I have created a new OleCoordinate class defined as
TAOleCoordinate = class(TAutoObject); and have created a related list class
defined as TAOleCoordinateList = class(TAutoObject);</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">I have added a method to
TAOleCoordinateList called .Add(AValue: OLEVariant): Integer which attempts to
add AValue to a TList object. The problem is that I don’t know how to type
cast OLEVariant to TAOleCoordinate (even though I know it is that object because
I created it as such and passed it into this method). </SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Anyone able to help me in this
matter?</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT><FONT face=Arial
size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Cheers,</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Andrew</SPAN></FONT></P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"></SPAN></FONT> </P>
<P class=MsoNormal><FONT face=Arial size=2><SPAN lang=EN-NZ
style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">BTW - This is in Delphi
5.</SPAN></FONT></P></DIV><DIV><FONT face='Arial' color=#000000 size=2></FONT> </DIV></BODY></HTML>