Yo pondría un solo timer:
Código Delphi
[-]
procedure TForm1.Label2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.OnTimer1
begin
Timer1.Disable;
if (Componente1.Top > 0) then
componente1.Top = Componente1.Top - 1;
if (Componente1.Top > 0) then
componente1.Top = Componente1.Top - 1;
if (Componente2.Top < Tope) then
componente2.Top = Componente2.Top + 1;
if (Componente2.Top < Tope) then
componente2.Top = Componente2.Top + 1;
Application.ProcessMessages;
if ((Componente1.Top > 0) or (Componente2.Top < Tope)) then
Timer1.Enable;
end;