Consulta SQL y aplicaion pegada

[mjjj]

Estimados,

tengo un problemita, espero me puedan ayudar.

Tengo una aplicacion que se conecta con un servidor DataSnap, por ejemplo, una función que se conecta a la una base de dato y devuelve el listo de clientes.

Resulta que dependiendo de mi conección esto puede demorar alguno segundo, y el usuario puede creer que la aplicación está pegada.
Para esto pense en mostrar un panel, que contuviera un label que mostrar que está cargando lo requerido, pero no aparece nada, expongo el codigo que utilizo.

Código Delphi [-]
function aviso(texto: string; visual: boolean): boolean;
begin
panel.text := ''
if visual then panel1.text := texto;
panel1.visible := visual;
result := visual;
end;

y lo llamo de la siguiente manera.

Código Delphi [-]
begin
if aviso('Cargando...', true) then
begin
// procedimiento expuesto por servidor DataSnap, el cual consulta a la BD.
end;
end;

Esto funciona, pero no aparece el panel con el texto, simplemente pareciera que está pegado.

Como puedo resolver esto??

[mjjj]

Me falto algo en la llamada...

Código Delphi [-]
begin
if aviso('Cargando...', true) then
try
// procedimiento expuesto por servidor DataSnap, el cual consulta a la BD.
finally
aviso('', false)
end;
end;

La idea es mostrar el panel, mientras se está hace la consulta sql

[Casimiro Noteví]

Application.ProcessMessages