runtime error 216 at 5b261531 в dll при завершении приложения

[Volkogriz]

Доброе время суток!
Всё в принципе работает но При завершении приложения вылетает ошибка,runtime error 216 at 5b261531
я перерыл всё но так и не понял что не так?
длл пока пустая практически,

library DBDLL;

uses
  ShareMem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,
  IdHTTP;

//{$R *.res}


Function SplashFormS(Reference:String; IdleTime:integer):Boolean; stdcall;
var
  SplashForm: TForm;
  SplashImage: TImage;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    ClientWidth :=700; //Screen.Width
    ClientHeight :=450;// Screen.Height
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
    begin
   SplashImage.Picture.LoadFromFile(extractfilepath(Application.ExeName)+Reference);
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show;
      begin
      Repaint;
       Sleep(IdleTime);
      end;
     Close;
     Free;
   end;
 end;
exports SplashFormS;


Function Communication(const Reference:String):String; stdcall;
var
 Stream:TMemoryStream;
 url,r:WideString;
 i,j:integer;
 Prices:TIdHTTP;
 List:TStringList;
 begin
Prices:=TIdHTTP.Create(Prices);
Stream:=TMemoryStream.Create;
List:=TStringList.Create;
BEGIN
    try
List.LoadFromFile('Relocation.id');
url:= Reference; //ññûëêà íà íîâóþ âåðñèþ
//List.Strings[0]; //ññûëêà íà íîâóþ âåðñèþ
 for i:=1 to length(url) do
 begin
 if url[i]='.' then
 begin
 j:=i;
 end;
 end;
 r:=copy(url,j+1,length(url));
 Prices.Get(url,Stream);
 Stream.SaveToFile('DB\PricesDB.DB'); //ïóòü è íàçâàíèå êóäà ñîõðàíÿåì
 Stream.Free;
 except
      on e:Exception do
      Stream.Free; End;
      Communication:='Îáíîâëåíèå çàâåðøèíî'
End;
End;
exports Communication;

begin
end.

Но по пойму ошибка здесь но где именно не пойму:

 
Function SplashFormS(Reference:String; IdleTime:integer):Boolean; stdcall;
var
  SplashForm: TForm;
  SplashImage: TImage;
begin
  SplashForm := TForm.create(nil);
  with SplashForm do
  begin
    BorderStyle := bsNone;
    Position := poScreenCenter;
    ClientWidth :=700; //Screen.Width
    ClientHeight :=450;// Screen.Height
   end;
    SplashImage := TImage.Create(SplashForm);
  with SplashImage do
    begin
SplashImage.Picture.LoadFromFile(extractfilepath(Application.ExeName)+Reference);
    Stretch := true;
    Align := alClient;
    Parent := SplashForm;
    end;
  with SplashForm do
   begin
     Show;
      begin
      Repaint;
       Sleep(IdleTime);
      end;
     Close;
     Free;
   end;
 end;
exports SplashFormS;

Помогите разобраться.
За ранее благодарен.
С уважением,
Volkogriz!

[Stilet]

ИМХО сплаш нужно вызывать из сопроцесса. Надежнее будет.
И я бы не в ДЛЛ ее посадил.

[Volkogriz]

Я просто решил убрать половину из exe и написать длл ку всё работает без проблем
но при добавлении этого куска ошибка, даже если функцию не используешь! (

[Stilet]

Сложно так сказать в чем именно проблема...
Ну попробуй избавится от String...
Я у себя его на TStringList или на TStringStream заменял.

[Volkogriz]

Спасибо!
сейчас попробую!

[Volkogriz]

Заменил на
PAnsiChar
и в обще попытался убрать, всё равно в этом куске ошибка ((

[spamer]

Помещать SplashScreen в dll без особой необходимости нету смысла.
Думаю стоит заменить String на WideString...при том, что даже и используется ShareMem.
А вобще в таких случаях стоит отладить библиотеку и посмотреть, что приводит к падению...

[ReportCube]

Попробуйте SplashImage.Picture.LoadFromFile вызывать после присвоения Parent