Поиск из dll по компоненту RichEdit из главной формы

[mauar]

Помогите пожалуйсто решить ещё одну проблему. Есть главная форма,
на ней расположен компонент RichEdit в который из *.rtf файла
выводится текст. Есть вторая маленькая форма производящая поиск
текста на ней есть компонент RichEdit в которой вводишь слово
и он ищет по компоненту RichEdit из главной формы в котором отображен текст .rtf.
Проблема такая, маленькую форму поиска я поместил в библиотеку
которая динамически загружается при вызове формы, если кто знает
почему не получается реализовать поиск из этой формы которая находится
в библиотеки, для поиска по компоненту RichEdit из главной фрмы!

Код из главной формы запуска формы поиска из библиотеки

var
  LDllHandle : THandle;
  LProc : procedure;
  St1 : TSearchForText;
  St2 : procedure;

begin
LDLLHandle := loadLibrary ('Finds.dll'); // загружаю библиотеку в которой находится форма поиска
if (LDLLHandle = 0) then begin
ShowMessage ('Ошибка загрузки библиотеки!');
exit;
end;
    try
      @LProc := GetProcAddress(LDllHandle, 'ShowFind');  // загружаем процедуру отображение
      @St1 := GetProcAddress(LDllHandle, 'SearchForText'); // загружаем функцию Поиска, 
      @St2 := GetProcAddress(LDllHandle, 'Click');      // загружаем процедуру кликанье на кнопке поиск (НЕ РАБОТАЕТ
      Lproc;
      st2;
      finally
      FreeLibrary(LDllHandle);
    end;
end;

Код из библиотеки:

 
library Finds;

uses
  SysUtils,
  Classes,
  Find in 'Find.pas' {FindForm};

{$R *.res}

exports ShowFind,  // экспортирую процедуру отображение и загрузки формы поиска из dll
        SearchForText, // экспортирую функцию поиска по тексту
        AdvGlowButton2Click name 'Click'; // экспорт процедуры нажатия на кнопку, ВОТ ОНА И НЕ РАБОТАЕТ

begin
end.

Код из формы поиска находящияся в библиотеки:

procedure ShowFind;
begin
  FindForm := TFindForm.Create(Application);
  //создали форму
  FindForm.ShowModal;
  //показали в модальном режиме
  FindForm.Free;
  //форму закрыли - освобождаем память...
end;

{функция поиска текста}
function SearchForText(RichEdit: TRichEdit; SearchText: string): Boolean;
var
StartPos, Position, EndPos : Integer;
begin
  StartPos := 0;

  with RichEdit do
  begin
    Endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;

  while FindText(SearchText, StartPos, Endpos, [])<>-1 do
    begin
      Position := FindText(SearchText, StartPos, Endpos, []);
      Endpos   := Length(RichEdit.Text) - startpos;
      Inc(StartPos, Length(SearchText));
      SetFocus;
      SelStart  := Position;
      RichEdit.Perform(EM_SCROLLCARET, 0, 0);
      SelLength := Length(SearchText);
      end;
    Lines.EndUpdate;
      end;
end;

{Выполняем поиск по текущей активной вкладки из главной формы программы}
procedure AdvGlowButton2Click(Sender: TObject);
begin

case TMSForm1.PageControl1.ActivePage.TabIndex of
2:   SearchForText(TMSForm1.RichEdit1  , TMSForm1.Edit1.Text);
3:   SearchForText(TMSForm1.RichEdit2  , TMSForm1.Edit1.Text);
4:   SearchForText(TMSForm1.RichEdit3  , TMSForm1.Edit1.Text);
5:   SearchForText(TMSForm1.RichEdit4  , TMSForm1.Edit1.Text);
8:   SearchForText(TMSForm1.RichEdit6  , TMSForm1.Edit1.Text);
9:   SearchForText(TMSForm1.RichEdit5  , TMSForm1.Edit1.Text);
11:  SearchForText(TMSForm1.RichEdit7  , TMSForm1.Edit1.Text);
12:  SearchForText(TMSForm1.RichEdit8  , TMSForm1.Edit1.Text);
14:  SearchForText(TMSForm1.RichEdit9  , TMSForm1.Edit1.Text);
15:  SearchForText(TMSForm1.RichEdit10 , TMSForm1.Edit1.Text);
17:  SearchForText(TMSForm1.RichEdit11 , TMSForm1.Edit1.Text);
18:  SearchForText(TMSForm1.RichEdit12 , TMSForm1.Edit1.Text);
45:  SearchForText(TMSForm1.RichEdit13 , TMSForm1.Edit1.Text);
47:  SearchForText(TMSForm1.RichEdit14 , TMSForm1.Edit1.Text);
48:  SearchForText(TMSForm1.RichEdit15 , TMSForm1.Edit1.Text);
end;
end;

{Закрываем окно поиска}
procedure TFindForm.AdvGlowButton1Click(Sender: TObject);
begin
close;
end;
end.

Теоретически, тут должно все работать, но что то не работает. Прикол в том что на главной форме TMSForm1 расположенно 18 вкладок компонента
PageControl , и на каждой из этих вкладок расположен RichEdit в котором загружен текст a .rtf формате, по идее все должно работать, если не из dll форма подгружается а просто в пакете проекта то все отлично работает. Весь день долбаюсь с ней так и не получается ничего.

[uberchel]

А так!

var
  LDllHandle : THandle;
  LProc : procedure;
  St1 : TSearchForText;
  St2 : procedure;

begin
LDLLHandle := loadLibrary ('Finds.dll'); // загружаю библиотеку в которой находится форма поиска
if (LDLLHandle = 0) then begin
ShowMessage ('Ошибка загрузки библиотеки!');
exit;
end;
    try
      @LProc := GetProcAddress(LDllHandle, 'ShowFind');  // загружаем процедуру отображение
      @St1 := GetProcAddress(LDllHandle, 'SearchForText'); // загружаем функцию Поиска, 
      @St2 := GetProcAddress(LDllHandle, 'AdvGlowButton2Click');      // загружаем процедуру кликанье на кнопке поиск (НЕ РАБОТАЕТ
      Lproc;
      st2;
      finally
      FreeLibrary(LDllHandle);
    end;
end;

Код из библиотеки:
Код:


 
library Finds;

uses
  SysUtils,
  Classes,
  Find in 'Find.pas' {FindForm};

{$R *.res}

exports ShowFind,  // экспортирую процедуру отображение и загрузки формы поиска из dll
        SearchForText, // экспортирую функцию поиска по тексту
        AdvGlowButton2Click; // экспорт процедуры нажатия на кнопку, ВОТ ОНА И НЕ РАБОТАЕТ

begin
end.

Код из формы поиска находящияся в библиотеки:
Код:


procedure ShowFind;
begin
  FindForm := TFindForm.Create(Application);
  //создали форму
  FindForm.ShowModal;
  //показали в модальном режиме
  FindForm.Free;
  //форму закрыли - освобождаем память...
end;

{функция поиска текста}
function SearchForText(RichEdit: TRichEdit; SearchText: string): Boolean;
var
StartPos, Position, EndPos : Integer;
begin
  StartPos := 0;

  with RichEdit do
  begin
    Endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;

  while FindText(SearchText, StartPos, Endpos, [])<>-1 do
    begin
      Position := FindText(SearchText, StartPos, Endpos, []);
      Endpos   := Length(RichEdit.Text) - startpos;
      Inc(StartPos, Length(SearchText));
      SetFocus;
      SelStart  := Position;
      RichEdit.Perform(EM_SCROLLCARET, 0, 0);
      SelLength := Length(SearchText);
      end;
    Lines.EndUpdate;
      end;
end;

{Выполняем поиск по текущей активной вкладки из главной формы программы}
procedure AdvGlowButton2Click(Sender: TObject);
begin

case TMSForm1.PageControl1.ActivePage.TabIndex of
2:   SearchForText(TMSForm1.RichEdit1  , TMSForm1.Edit1.Text);
3:   SearchForText(TMSForm1.RichEdit2  , TMSForm1.Edit1.Text);
4:   SearchForText(TMSForm1.RichEdit3  , TMSForm1.Edit1.Text);
5:   SearchForText(TMSForm1.RichEdit4  , TMSForm1.Edit1.Text);
8:   SearchForText(TMSForm1.RichEdit6  , TMSForm1.Edit1.Text);
9:   SearchForText(TMSForm1.RichEdit5  , TMSForm1.Edit1.Text);
11:  SearchForText(TMSForm1.RichEdit7  , TMSForm1.Edit1.Text);
12:  SearchForText(TMSForm1.RichEdit8  , TMSForm1.Edit1.Text);
14:  SearchForText(TMSForm1.RichEdit9  , TMSForm1.Edit1.Text);
15:  SearchForText(TMSForm1.RichEdit10 , TMSForm1.Edit1.Text);
17:  SearchForText(TMSForm1.RichEdit11 , TMSForm1.Edit1.Text);
18:  SearchForText(TMSForm1.RichEdit12 , TMSForm1.Edit1.Text);
45:  SearchForText(TMSForm1.RichEdit13 , TMSForm1.Edit1.Text);
47:  SearchForText(TMSForm1.RichEdit14 , TMSForm1.Edit1.Text);
48:  SearchForText(TMSForm1.RichEdit15 , TMSForm1.Edit1.Text);
end;
end;

{Закрываем окно поиска}
procedure TFindForm.AdvGlowButton1Click(Sender: TObject);
begin
close;
end;
end.

[Пепел Феникса]

1 придирка:
а может стоит почитать про ДЛЛ и стринг?
используйте PChar или ShortString;
может и спасет...
2)можете скинуть проект, посмотрю

[mauar]

uberchel нет все по проежнему

Сообщение от Пепел Феникса

1 придирка:
а может стоит почитать про ДЛЛ и стринг?
используйте PChar или ShortString;
может и спасет...
2)можете скинуть проект, посмотрю

Прикрепил 2 примера, в первом примере поиск происходит не из библиотеки и окно не модальное, а во втором примере поиск происходит из библиотеки и окно модальное, лучше конечно чтобы оно не модальное было.
Если поможете, заранее благодарю!