Llenar ListBox con fuentes del sistema

[jachguate]

Bueno, eso depende....

Código Delphi [-]
var
  Lista: TStrings;
begin
  Lista := TStringList.Create();
  try
    ...
    Listbox1.Items:=Lista;
    ...
  finally
    Lista.Free;
  end;

Esto debiera ir perfecto!