procedure TForm1.Button1Click(Sender: TObject);
var
   SDrugName: string;
begin
   DestTable.Open;
   DestTable.EmptyTable;

   SourceTable.Open;
   SourceTable.First;
   while not SourceTable.EOF do begin
      { Get drug name }
      SDrugName:=SourceTable.FieldByName('NAME').AsString;

      { Add drug to destination table; use Locate to prevent duplicate 
entries }
      if not DestTable.Locate('NAME',SDrugName,[]) then begin
         // If TestLocateDest.DAT has a secondary index (NameIdx) on the NAME 
field
         // that is case-sensitive, then Locate incorrectly returns False here.

         // If TestLocateDest.DAT has a secondary index (NameIdx) on the NAME 
field
         // that is case-insensitive, then Locate correctly returns True here.
         // (I used the dbsys restructure utility to toggle the 
case-sensitivity
         // of the NAME index.)
         DestTable.Append;
         DestTable.FieldByName('LISTING_SEQ_NO').AsString:=
            SourceTable.FieldByName('LISTING_SEQ_NO').AsString;
         DestTable.FieldByName('NAME').AsString:=SDrugName;
         DestTable.Post;
      end;

      SourceTable.Next;
   end;

   SourceTable.First;
   DestTable.First;
end;