Загрузка картинки в динамический TImage через поток

TListBoxItem * create_main_item(UnicodeString id, UnicodeString name,
    UnicodeString url_photo, UnicodeString radius) {
 
    TListBoxItem * new_item = new TListBoxItem(NULL);
 
    TImage * photo_50 = new TImage(new_item);
    photo_50->Parent = new_item;
 
// тут много не интересного 
 
    photo_load * a = new photo_load(true);
    a->url_photo =  url_photo;
    a->Start(); 
    photo_50->Bitmap->Assign(a->return_photo());
 
    return new_item;
}

class photo_load : public TThread
{
private:
 
    TMemoryStream * photo_ms;
    TBitmap * photo;
protected:
    void __fastcall Execute();
 
public:
    __fastcall photo_load(bool CreateSuspended);
    UnicodeString url_photo;
    TBitmap * return_photo();
};

void __fastcall photo_load::Execute()
{
    TIdHTTP * http = new TIdHTTP;
    photo_ms = new TMemoryStream;
    http->Get(url_photo, photo_ms);
    photo  = new TBitmap();
    photo->LoadFromStream(photo_ms);
    delete http;
}
//---------------------------------------------------------------------------
TBitmap * photo_load::return_photo()
{
    //photo_load::WaitFor();
    return photo;
}

    photo_load *a = new photo_load(true);
    a->url_photo = url_photo;
    a->Start();
    HANDLE h = (HANDLE)a->Handle;
    bool Loop = true;
    do // Этот цикл - чтобы поток не "замораживал" UI...
    {
        switch (MsgWaitForMultipleObjects(1, &h, 0, INFINITE, QS_ALLINPUT))
        {
        case WAIT_OBJECT_0 + 1:
            Application->ProcessMessages();
            break;
        default:
            Loop = false;
            break;
        }
    }
    while (Loop);
    TBitmap *bm;
    photo_50->Bitmap->Assign(bm = reinterpret_cast<TBitmap*>(a->WaitFor()));
    delete bm;

void __fastcall photo_load::Execute()
{
    TIdHTTP * http = new TIdHTTP(0);
    // Без этого у меня не хочет, ибо задолбала всех Indy
    http->Request->UserAgent = "Firefox";
    photo_ms = new TMemoryStream;
    http->Get(url_photo, photo_ms);
    photo = new TBitmap();
    photo_ms->Position = 0; // А вот это ты забыл...
    photo->LoadFromStream(photo_ms);
    ReturnValue = reinterpret_cast<int>(photo); // Это вернется через WaitFor()
    delete http;
}

class t_thread_delegated : public TThread
{
public:
    typedef std::auto_ptr < TBitmap > return_type;
    typedef void __fastcall( __closure * t_on_success_delegate )( return_type );
 
    t_on_success_delegate on_success_delegate;
    return_type photo;
 
    void __fastcall on_success( void )
    {
        on_success_delegate( photo );
    }
 
    void __fastcall Execute( )
    {
        // ...
        // ReturnValue = reinterpret_cast<int>(photo); // Это вернется через WaitFor()
 
        Sleep( 3000 );
 
        photo.reset( new TBitmap( ) );
        photo->LoadFromFile( "photo.bmp" );
 
        Synchronize( & on_success );
    }
 
    __fastcall t_thread_delegated( t_on_success_delegate dg ) :
        TThread( ),
        on_success_delegate( dg )
    {
        FreeOnTerminate = true;
    }
 
    __fastcall t_thread_delegated( bool cs, t_on_success_delegate dg ) :
        TThread( cs ),
        on_success_delegate( dg )
    {
        FreeOnTerminate = true;
    }
} ;
 
// ---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
 
    TEdit * edit_in;
    TEdit * edit_out;
    TMemo * memo_out;
    TButton * btn_rocknroll;
    TImage * photo_50;
 
    void __fastcall btn_rocknrollClick( TObject * Sender );
 
public: // User declarations
 
    __fastcall TForm1( TComponent * Owner );
    void __fastcall receive_photo( t_thread_delegated::return_type bm );
    // __fastcall ~TForm1( );
} ;

void __fastcall TForm1::receive_photo( t_thread_delegated::return_type bm )
{
    photo_50->Picture->Bitmap->Assign( bm.get( ) );
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn_rocknrollClick( TObject * Sender )
{
    t_thread_delegated * a = new t_thread_delegated( true, &receive_photo );
    // a->url_photo = url_photo;
    a->Start( );
}