Как найти все label на второй форме, которые содержат в себе цифры, сразу после изменения edita на первой?

procedure TForm1.GetAllLabelsWithNumber(AForm: TForm; ALabels: TObjectList<TLabel>);
var i: Integer;
    L: TLabel;
    Q: Integer;
begin
  ALabels.Clear;
 
  for i := 0 to AForm.ControlCount - 1 do
    begin
      if AForm.Controls[i].ClassType = TLabel then
        begin
          L := AForm.Controls[i] as TLabel;
          if TryStrToInt(L.Caption, Q) then
            begin
              ALabels.Add(L);
            end;
 
        end;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var List: TObjectList<TLabel>;
    L: TLabel;
    Q: Integer;
begin
 
  Q := 1;
 
  if not TryStrToInt(Edit1.Text, Q) then Exit;
 
  List := TObjectList<TLabel>.Create(False);
  GetAllLabelsWithNumber(Form2, List);
 
  Memo1.Clear;
 
  for L in List do
    begin
      Memo1.Lines.Add(L.Caption + ' * ' + IntToStr(Q) + ' = ' + IntToStr(Q * StrToInt(L.Caption)));
    end;
 
  Caption := IntToStr(Q);
 
  FreeAndNil(List);
end;

procedure TForm2.FormCreate(Sender: TObject);
var i: Integer;
    L: TLabel;
begin
  for i := 1 to 30 do
    begin
      L := TLabel.Create(Self);
      L.Parent := Self;
 
      L.Left := Random(ClientWidth);
      L.Top := Random(ClientHeight);
 
      // по некому рандому создаем рандомное число в лабель... если условие не выполняется, создаем некий текст
      if i mod (Random(20) + 1) = 0 then
        L.Caption := IntToStr(Random(100))
      else
        L.Caption := 'Label_' + IntToStr(i)
    end;
end;