anchor.diff:      TabOrder := 1;
       Text := '';
       FontDesc := '#Edit1';
  +    OnKeyPress :=@edSearchTextKeyPress;
     end;
   
     Label2 := TfpgLabel.Create(tsSearch);
  
positive.code:   begin
      Name := 'PageControl1';
      SetPosition(0, 0, 260, 328);
      ActivePageIndex := 4;
      TabOrder := 0;
      Align := alLeft;
      OnChange  := @PageControl1Change;
  
negative.code:     GroupIndex := 0;
      TabOrder := 4;
      Text := 'Marked sections';
      Enabled := False;
    end;
  
    RadioButton3 := TfpgRadioButton.Create(tsSearch);
  