LSFindReplaceDialogW contains two components for Delphi 6 and 7: TLSFindDialogW displays a Find dialog, TLSReplaceDialogW a search-and-replace dialog. Both use wide strings (Unicode) and do work only with Windows NT/2000/XP and higher.
LSFindReplaceDialogW includes all source code!
