TCanvas::ScanLine を調べるがいい。
あと、そうやって TBitmap 使うのなら、作った直後にサイズと PixelFormat を指定したほうが、精神衛生上良いと俺は思う。

new と delete が対応していない。