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.