Good work,
Add in replace event menu this
Opt:= [ssoFindContinue];
if frmReplaceText.CaseSensitive.Checked=true then Opt := Opt + [ssoMatchCase];
And this in form Replace:
object CaseSensitive: TCheckBox
Left = 15
Height = 19
Top = 107
Width = 94
Caption = 'Case Sensitive'
TabOrder = 4
end
Thanks