[d1gger17]

Уже 2 недели программлю на делфи, и у меня появились вопросы. Решил пропрактиковаться, создать блокнот со спец возможностями для себя. Но есть проблемка, я сделал динамическое создание Pag'ов и загрузка в них файлов, и мне надо сделать ещё следующие:
1. Поиск активной закладки(так как у меня создаётся закладка, а в ней RichEdit, то надо реализовать поиск, для пример, вот часть моего кода:
[code]
"var
MainForm: TMainForm;
My_Rich: TspSkinRichEdit;
My_Tab: TspSkinTabSheet;
My_VScrollBar, My_HScrollBar: TspSkinScrollBar;
FileName, RichEdit_NumberStr, VScroolBar_NumberStr, HScroolBar_NumberStr, Tab_NumberStr: string;
RichEdit_Number, VScroolBar_Number, HScroolBar_Number, Tab_Number, Main_Page_Number: integer;
Can_Find_Active_Page:boolean;
procedure TMainForm.Main_ToolBar_NewFileClick(Sender: TObject);
begin
Page_Set_Up;
My_Tab:=TspSkinTabSheet.Create(Self);
My_Rich:=TspSkinRichEdit.Create(self);
Tab_RichEdit_SrcollBars_Set_Setup;
Main_Page_Work.ActivePageIndex:=My_Tab.PageIndex;
All_Path_File_UnVisible.Lines.Append('New');
end;
procedur