Realizar Varias tareas en un solo boton

[Lord Delfos]

Bueno, yo creo que la idea de Caral iría más o menos así:

Código Delphi [-]
var Tarea: Integer;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if not tmr1.Enabled then
    begin
    Tarea:= 1;
    tmr1.Enabled:= True;
    end;

  if Tarea = 1 then
    Tarea:= 2
  else
    Tarea:= 1;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if Tarea = 1 then
    HagoLaTareaUno
  else
    HagoLaTareaDos;
end;

Creo que es lo más sencillo de hacer.

Saludos.