Esperar a terminar algo

[Patxi]

Hola, lo que pregunto es algo diferente, si hago lo que me dices:

TForm1.Timer1Timer(Sender: TObject);
begin
<> TTimer(Sender).Enabled := false;
... (CT) Codigo que quieras poner...
end;

TForm1.ClickButton1(Sender: TObject);
begin
if not Timer1.Enabled then
begin
.... (CB) Codigo que quieras poner ...
end;
end;

si el timer está enabled, el código C1 no se ejecutaría, lo que yo pretendo es esperar a que termine el código CT y entonces se ejecute el CB.

Si lo hago de esta otra forma, pues no funciona ya que el CT también se para:

TForm1.Timer1Timer(Sender: TObject);
begin
Ejecutandose:=True;
... (CT) Codigo que quieras poner...
Ejecutandose:=False;
end;

TForm1.ClickButton1(Sender: TObject);
begin
while Ejecutandose do Application.ProcessMessages;
begin
.... (CB) Codigo que quieras poner ...
end;
end;

Bueno muchas gracias.