function LoadResData;
var
  hResource: NativeInt;
begin
   //s := 'hello world';
   //Result := @s[1];
   hResource := LoadResource( hInstance, FindResource(hInstance,PChar(name), PChar(100)));
   Result := LockResource(hResource);
   FreeResource(hResource);
end;