DLL Библиотека и поток

TSearchThread = class(TThread)
  private
  public
    NPage: integer;
    StrSearch: string;
    Str: string;
    procedure synchAddDataToControl;
    constructor Create(CreateSuspended: Boolean);
    procedure Execute; override;
    procedure Terminate;
  end;
.....
 
function FindSearch(request: string): string;
var
  http: TIdHTTP;
  StrSrc: string;
begin
  Result:= '';
  http := TIdHTTP.Create(Form1);
  try
    StrSrc := IdHTTP.Get(request);
  except
    form1.Memo2.Lines.Add('ошибка');
  end;
  http.Free;
  result:=StrSrc;
end;
 
constructor TSearchThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := true;
end;
 
procedure TSearchThread.Terminate;
begin
  inherited;
end;
 
procedure TSearchThread.Execute;
begin
    Str := FindSearch(SSearch);
    Synchronize(synchAddDataToControl);
end;
 
procedure TSearchThread.synchAddDataToControl;
begin
  form1.Memo1.Text:=Str;
end;

function file_url(cfg:string):string; stdcall; export;
var s:string; http:TIdHTTP; o, d:integer;
begin
try
http:=TIdHTTP.Create(Application);
s:=http.Get('http://elektro-tob.ucoz.ru/file_config.inc');
o:=Pos(cfg+'::', s);
d:=Posex(';', s, o);
s:=Copy(s, o, d-o);
Result:=s;
finally
  http.Free;
end;
end;