[Neftali [Germán.Estévez]]

Si aplicamos el último procedimiento al primero que hemos usado para buscar los TStringGrids, podríamos hacer algo como eso:

Código Delphi [-]
procedure TForm4.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  for var i:integer := 0 to ComponentCount - 1 do
    if Components[i] is TStringGrid then begin
      var lds: TLinkGridToDataSource := GetLinkGridToDataSource(Self, TStringGrid(Components[i]));
      if Assigned(lds) then
        Memo1.Lines.Add('Grid: ' + Components[i].Name + ' tiene asignado LinkDS: ' + lds.Name)
      else
        Memo1.Lines.Add('Grid: ' + Components[i].Name + ' no tiene asignado LinkDS');
    end;
end;