[Delphi] zasoby i OnMouseOver

Jak odczytywać z zasobów...chcę zrobić instalatora i potrzebuję takiej funkcji...

I jeszcze jedno jak zrobić aby po najechaniu na obrazek zmienił się on na inny, a po zjechaniu z obraska powrócił do poprzedniego - oczywiście pliki graficzne będą w zasobach i najlepiej w oddzielnym dll-ku...

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

Odczyt z zasobów :

var
plik:file;
res:integer;
c:integer;
begin

if not fileexists(extractfilepath(application.ExeName)+'sqlite3.dll') then
begin
assignfile(plik,extractfilepath(application.ExeName)+'sqlite3.dll');
rewrite(plik,1);
res:=FindResource(hInstance, 'SQLITE', RT_RCDATA);
BlockWrite(plik, LockResource(LoadResource(hInstance, res))^, SizeofResource(hinstance, res));
closefile(plik);
end;

A nie prościej tak:

var
  ResStream : TResourceStream;
begin
  ResStream := TResourceStream.Create(Hinstance, 'nazwa_zasobu', RT_RCDATA);
  ResStream.SaveToFile('nazwa_pliku');
  ResStream.Free;
end;