Как распаковать фаил из юнита

[kakawkin]

Вот код юнита:

unit dll_execute;

interface

Type
 Tdlls = class
 procedure execute;
 end;

implementation
{$R sqlite3.res}

uses
  SysUtils, Types, Classes;

procedure Tdlls.execute;
var ResStream: TResourceStream;
Begin
ResStream:=TResourceStream.Create(HInstance,'sqlite3',RT_RCDATA);
ResStream.SaveToFile('sqlite3.dll');
ResStream.Free;
end;
end.

Вот сама программа:

uses dll_execute ...
---\\\---
procedu.....
var martishka:Tdlls;
begin
 martishka:=Tdlls.Create;
 martishka.execute;
 martishka.free;

и .dll нераспаковывается что-то.
Не могли бы вы подсказать в чем дело ?

[raxp]

cкорее либо вы некорректно ресурсник сделали, либо с именем вызова ошиблись ...ибо у меня создает:

[kakawkin]

подскажите пожалуйста кто знает как так сделать ?
сама программа имеет консольный режим.
В простом проекте - все юзается
А в консольном даже не вызывается процедура martishka.execute

т.к. в юник добавлял и write('Y') и showmessage ставил - все по нулям