имеется многопоточная программа, потоки в ней задаются пользовательски, т.е. количество потоков может быть любое.

кроме главной формы, есть еще дополнительная. в процессе выполнения потоками своей работы, вызывается дополнительная форма для ввода туда информации, после чего поток продолжает свою работу с полученными данными от дополнительной формы. потом другой поток открывает дополнительную форму и вводим снова туда информацию.

вызов формы делаю через процедуру синхронизации, при этом поток, вызвавший дополнительную форму, приостанавливает свою работу. после закрытия формы поток продолжает свою работу.

но у меня возникла проблема с обменом информации потока с дополнительной формой. последний поток, открывший доп. форму, как бы "перебивает" данные полученные ранее от потоков и выводится информация во всех открывшихся формах последнего потока. получает же информацию от формы, также только последний, открывший форму, поток.

также, так как форма еще не создана, я не могу передать данные в тот же компонент Img класса timage. создаю компонент динамически, все равно не передает данные-ошибка.



а если заранее задать img и открыть уже в дополнительной форме:

то как уже сказал отображается картинка только последнего потока.

подскажите, пожалуйста, как реализовать удачный обмен информации между дополнительной формой и всеми потоками программы.

примного благодарен!

Не нужно трогать VCL из потоков без синхронизации. 
Нужно читать это

может быть я вас не понял, но:

Да, верно, просто в коде я этого не увидел. Ты так путано объясняешь, что я ничего не понимаю. Покажи больше кода.
Сейчас вижу что ты думаешь что после b.InsertControl(img); img превратится в b.img, а это не так
Picture.LoadFromFile(name_pic) ты делаешь с другой картинкой

проблема решена, тему, впринципе, можно закрывать, лишь хотел задать один вопрос.



как видно из кода, обмен потока с дополнительной формой получился лишь с помощью caption дополнительной формы, так как при создании формы поток не видит ни компонента timage, ни edit.

заморачиваться особо не стал с поиском или динамическим созданием компонента на дополнительной форме, поэтому решил оставить так, НО, возможно, у вас будут какие-либо рациональные предложения по обмену данными с дополнительной формой из потока, не совсем "увеличивающие" код.

буду премного благодарен.

а зачем вообще FindClass? что мешает объявить f как TForm4, и делать f := TForm4.Create(Application)? тогда через переменную f будет доступно всё что нужно.
Еще в твоём коде если findClass кинет исключение, ты пытаешься сделать free несуществующему объекту. И в этом случае критическая секция останется занятой