You need to do Bitmap.PixelFormat := pf24Bit; with all your bitmaps...
Also, make sure that the values you assign to rgtbRed,... never get larger than 255 or smaller than 0 or you'll get really weird results.