Ожидание окончания работы Timer

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval:=25;
  ArrImBall[i].Top:=ArrImBall[i].Top+10;
  if ArrImBall[i].Top>345 then begin
    ArrImBall[i].Visible:=false;
    Timer1.Enabled:=false;
  end;
end;
 
procedure TMainForm.ButtonStartClick(Sender: TObject);
begin
    Moveball(i); // процедура, которая ставит шар на нужное место перед полётом
      timer1.Enabled:=true;
end;

Timer1.Enabled:=false;

var
  s: Integer; //глобально
//--------------
//--------------
//--------------
 
begin
  Inc(s);
  {твой код}
  if s = 5 then
    Timer1.Enabled := false;
end;

  if {условие которое тебе нужно} then
    Timer1.Enabled := false;

if ArrImBall[i].Top>345 then begin
    ArrImBall[i].Visible:=false;
    Timer1.Enabled:=false;
  end;

var
  Form1: TForm1;
  s: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
begin
  //запустим случайно выбранный шар вниз!
    TImage(FindComponent('Image' + IntToStr(s))).Top := TImage(FindComponent('Image' +
    IntToStr(s))).Top + 5;
 
     //упала за экран- поднимаем на верх
    if TImage(FindComponent('Image' + IntToStr(s))).Top > Form1.ClientHeight - Image1.Height then
    begin
      //настало это условие когда нужно поднять шар наверх
      TImage(FindComponent('Image' + IntToStr(s))).Top := 0;
      //шар наверх поднят! теперь выпустим другой случайный шар!
      s:= 1 + Random(3);
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize; //случайность
  DoubleBuffered := True; //двойной буфер
  s:= 1 + Random(3); //случайный выбор шара
  Timer1.Enabled:=True; //старт
end;

procedure MoveBall(var i:integer);
begin
  if k<>30 then begin
    i:=RandomRange(1,11);
    ArrImBall[i].Left:=100*i-80;
    ArrImBall[i].Top:=0;
    ArrImBall[i].Visible:=true;
    Timer1.Enabled:=true; // на эту строчку ругается
  end;
end;

procedure MoveBall(aTimer : TTimer; var i:integer);
begin
  if k<>30 then begin
    i:=RandomRange(1,11);
    ArrImBall[i].Left:=100*i-80;
    ArrImBall[i].Top:=0;
    ArrImBall[i].Visible:=true;
    aTimer.Enabled:=true;
  end;
end;

MoveBall(Timer1, X);

MoveBall(Form1.Timer1, X);