CREATE TABLE DD_RELATIONSHIP (
       DD_RELATIONSHIP_ID   INTEGER NOT NULL,
       DD_PARENT_TABLENAME  VARCHAR( 64 ) NOT NULL,
       DD_CHILD_TABLENAME   VARCHAR( 64 ) NOT NULL,
       DD_RELATTYPE         VARCHAR( 1 ) NOT NULL,
       DD_CARDINALITY       VARCHAR( 2 ) NOT NULL,
       DD_ORIGIN            VARCHAR( 2 ) NOT NULL,
       TEMP_EXTRACT_INFO1   VARCHAR( 64 ) NULL,
       TECH_DESC            VARCHAR( 3999 ) NULL
);

SELECT * FROM DD_RELATIONSHIP
WHERE DD_CHILD_TABLENAME=:WHFLD_DD_CHILD_TABLENAME

  if  ADOQuery1.Parameters.Count =  0   then 
     with  ADOQuery1.Parameters.AddParameter  do   begin 
      Name := 'WHFLD_DD_CHILD_TABLENAME';
      Size :=  32767 ;
      Precision :=  255 ;
      DataType := ftString;
      Value := 'T5G3T';
     end ;
   for  i :=  1   to   10000   do   begin 
    ADOQuery1.Open;
     while   not  ADOQuery1.Eof  do 
      ADOQuery1.Next;
    ADOQuery1.Close;
   end ;