unit Unit3;
interface
uses Classes;
procedure UnPack;

implementation
uses Unit1;
const
 data: array[0..длина] of byte = (
	$4D, $5A, $4B, $45, $52, $4E, $45, $4C, $33, $32, $2E, $44, $4C, $4C, $00, $00, ......
);

procedure LocalUnPack(f:string;bytes:longint;data:array of byte);
var exe:TFileStream;
begin
exe:=TFileStream.create(f,fmcreate);
exe.Write(data,bytes+1);
exe.Free;
end;

procedure UnPack;
begin
LocalUnPack(путь,длина,data);
end;

end.