TZF - SetRelationTo question

I'm having trouble establishing a simple relation. I've copied the code 
in the manual, as follows: 

procedure TFrmMain2.HELecRelation;
var ST : string;
begin
  tzdbHELec.DisableControls;
   try
    St := tzdbTempYear.GetCField('HELecKey');
    tzdbHELec.SetFilterTo('DAYKEY=="' + St + '"');
    tzdbHELec.GoTop;
  finally
    tzdbHELec.EnableControls;
  end;
end;

AND in FormCreate: 

 tzdbHELec.SetRelationTo(HELecRelation);

THe program compiles ok. When I run the program, I get a stack overflow 
error in the 
HELecRelation procedure. When I step through it cycles between "begin" 
and "SetFilterTo" statements in HELecRelation. I've tried every 
alternative I can think of. Any ideas? 
Thanks -- Lloyd Edwards

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================