Pasar pequeño codigo Delphi a Builder

[aguml]

Lo siento por el enlace, no tengo nada que ver con esa web, es simplemente para que podais ver de donde saqué el código original y podais ayudarme.
Se me olvidó decir los errores que me muestra con lo que hice:

Build
[C++ Error] Unit1.cpp(21): E2108 Improper use of typedef 'TImage'
[C++ Error] Unit1.cpp(24): E2108 Improper use of typedef 'TImage'
[C++ Error] Unit1.cpp(26): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(26): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(26): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(26): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(27): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(27): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(27): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(27): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(32): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(32): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(33): E2285 Could not find a match for 'TImage::TImage(TObject *)'
[C++ Error] Unit1.cpp(33): E2459 VCL style classes must be constructed using operator new
[C++ Error] Unit1.cpp(41): E2108 Improper use of typedef 'TImage'
[C++ Error] Unit1.cpp(43): E2293 ) expected