i need to show a popup window before the a query execution, and close that windows when the query ends.

actually i do something like this

var
frm : tFrmPopupElapsed;
// this form have a ttimer and a tlabel to show the elapsed time
//but the tlabel is not updated, i tried using update; and refresh; but nothing happens
//the timer is enabled.
begin
 frm:=tform.create(nil);
 frm.Init;//this procedure set the timer to enabled:=true
try
 frm.Show();
 ExecuteMyVeryLongQuery();
finally
 frm.Close; 
end;

end;

wich is the best way using a ttimer? a Tthread ?

thanks in advance.