This doesn't seem correct... Result := CreateBMP() ; but result is not used anymore