Llenar ListBox con fuentes del sistema

[jachguate]

Empezado por keyboy

pero durante la ejecución la asignación se hace

Claro que no se hace!!

En la clase TStrings son abstractos por ejemplo Add, por lo que llegaría a intentar realizar la asignación solo si no se intentara añadir ninguna cadena, y en este supuesto, los métodos Assign y AssignTo también son abstractos, por lo que el asunto siempre terminará con una EAbstractError y sin ninguna asignación realizada. Te invito a probarlo.

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
var
  Lista: TStrings;
begin
  Lista := TStrings.Create();
  try
    Lista.Add('A que no exploto!!!');  //prueba también poniendo en comentario toda esta línea
    Listbox1.Items:=Lista;  //la asignación nunca llega a ocurrir.
  finally
    Lista.Free;
  end;
  try
    ShowMessage(ListBox1.Items[0]);
  except
    ShowMessage('Explotó!');
  end;
end;

Hasta luego.