Не отображаются компоненты на форме

[tarakan1983]

Доброго времени суток.
Ситуация такая: Программа в потоке читает данные с прибора по com-порту и пишет их в БД. Нужно при получении определенного сообщения вывести его в отдельную форму. Я делаю отдельную форму, помещаю на нее компоенты Button и StringGrid, потом в отдельном потоке запускаю проверку

...
G_COLOR:=COLOR;
Td:=ShowAllert.Create(true);
Td.FreeOnTerminate:=true;
Td.Priority:=tpLower;
Td.Resume;
...

procedure ShowAllert.Execute;
begin
cr.Enter;
if G_COLOR='G' then
  begin
    with FmAlert do
      begin
        Show;
      end;
  end;
cr.Leave;
end;

Форма FmAlert показывается, а компонентов Button и StringGrid на ней не видно, проверил свойства VISIBLE, все вроде стоит true, где я ошибся?

[eval]

формы надо показывать из основного потока

[tarakan1983]

И никак это по другому не решить?

[eval]

чего это? это закон можно сказать, его исполняют а не решают

[tarakan1983]

Дело в том что у меня чтение с com-порта и запись в БД идет в отдельном потоке, даже если я вызываю эту форму в том-же потоке, то все равно их не видно, как мне поступить правильно???

[eval]

чего не понятно в 1 ответе?
еще раз - формы создают и показывают из ОСНОВНОГО потока, и хоть мульен потоков

тем более что ваш код по отображению неправильный.

[Unique_Maks]

используйте synchronize
и зачем одну строчку превращать вот в это:

    with FmAlert do
      begin
        Show;
      end;

[tarakan1983]

Unique_Maks, дело в том, что там планировалось много еще чего делать с формой, а застрял только на этом