Como ir cambiando el caption de un label mientras ejecuto una funcion?

[chalys]

Hola no se si comprendí bien lo que quieres hacer, pero creo que quieres crear tus propios procedimientos para desde alli poder acceder a los diferentes objetos como label, edit, button y otros. Lo que yo hago es lo siguiente no se si se ha correcto pero a mi me funciona.



unit Unit1;

interface

uses

........

type

........

procedure Button1Click(Sender: TObject);

procedure cualquierita(Sender: Tobject); // debes declarar tu procedimiento aqui

.......
Imlementacion


procedure TForm1.cualquierita(Sender: Tobject);

begin

milabel.caption := 'estoy aca';

query.sql.text := 'select.... ... ';

query.execsql;

.

.

.

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

cualquierita(Sender);

end;

Espero que te servia ..........

[hermes_32]

Hola gandalf_uy,

cada vez que empiece una de tus querys haces:

Código Delphi [-]
  Application.ProcessMessages;
  label1.caption := el mensaje que quieras;
  label1.Update;

Un saludo.

[gandalf_uy]

Muchas gracias por la información a todos los que me respondieron.

El Application.ProcessMessages; me anduvo notable

Gracias de nuevo,
gandalf_uy