change caption of the form and app title when searching

mainunit.pas

@@ -82,6 +82,7 @@   TForm1 = class(TForm)
     FAllTagCount, FSelectedTagCount: integer;
     FUndoCloseTabHistory: array [0..UndoCloseTabHistoryMaxSize] of string;
     FUndoCloseTabHistoryUsed: integer;
+    FBaseTitle: string;
 
     procedure CollectAllTags;
     procedure FilterTextByAwesomeBar;
@@ -326,6 +327,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 begin
   WindowState := wsMaximized;
 
+  FBaseTitle := Caption;
   FAllLines := TStringList.Create;
   FAllLines.LineBreak := #10;
   FDiscardedLines := TStringList.Create;
@@ -836,9 +838,14 @@ procedure TForm1.AwesomeBarChange(Sender: TObject);
     FDiscardedLines.Clear;
     TextEditor.Lines.Assign(FAllLines);
     alllines := True;
+    Caption := FBaseTitle;
   end
   else
+  begin
+    Caption := FBaseTitle + ' - ' + AwesomeBar.Text;
+    Application.Title := Caption;
     FilterTextByAwesomeBar;
+  end;
 
   tmp := Format('Lines: %d/%d', [TextEditor.Lines.Count, FAllLines.Count]);
   StatusBar.Panels[LineCountPanel].Text := tmp;