Problem With TTimer And Create Form

[azzur...@gmail.com]

Hello!

I have a Ttimer componet which on his ontimer event make communication
with some units by commport. In the main CLX thread (in the main form)
I have a diffrent buttons that calling some other forms. Every Button
has onclick event, where i Create other forms.

For Example:

procedure TMainForm.Button1Click(Sender: TObject);
begin
Form2:= TForm2.CreateParented(QApplication_activeWindow
(Application.Handle));
Form2.ShowModal;
Form2.Release;
End;

The Problem is when I click on button1, OnTimer Procedure stop
working, and when I close Form2 start working again.
My question is how to make Ontimer procedure not to stop working when
I Show Form2?