CLX é assim Mesmo!!!

Olá!!!

Estou fazendo um teste e criei uma aplicação com 2 forms em CLX rodando em ambiente win e um form chama o outro desta atravéz de uma procedure que fica no corpo de uma unit e não é vinculada a menhuma classe:

procedure MENSAGEM(const pMensagem: String);
var
lForm2: TForm2;
begin
lForm2 := TForm2.Create(Screen.ActiveForm);
try
lForm2.Label1.Caption := pMensagem;
lForm2.ShowModal;
finally
FreeAndNil(lForm2);
end;
end;

E no Form1 tenho um botão que qdo clico executa o seguinte:

procedure TForm1.Button1Click(Sender: TObject);
begin
MENSAGEM(´OLA MUNDO´);
end;

end.


O Resultado é que quando fico alternando entre aplicações ALT+TAB o Form2 desaparece e só reaparece quando clico sobre o Form1. Uma aplicação CLX funciona desta maneira ou tem uma solução para isso???

Valeu.