Bilder für TImage aus einer Resource-Datei laden

[3_of_8]

Also ein Bild laden is nicht sonderlich schwer:

function LoadResourceBitmap(resourcename: String): TBitmap;
begin
if resourcename<>'' then
begin
result:=TBitmap.Create;
result.handle:=LoadBitmap(hinstance, @resourcename[1]);
end;
end;