procedure TSyntEditMain.SyntaxMemo1IncSearchChange(Sender: TObject; State: TIncSearchState); begin if State <> isStop then SB.SimpleText := 'Search for: ' + (Sender as TSyntaxMemo).IncSearchStr else SB.SimpleText := ''; SB.SimplePanel := State <> isStop; end;