listar nomes de arquivos usando combobox

var I: Integer;
    SR: TSearchRec;// Não é uma classe e sim um Record, ou seja, não é instanciado
    Lista: TStringList;
begin
  cbb1.Clear;// Componente ComboBox no formulário

  Lista:= TStringList.Create;// Instanciar objeto da classe TStrinList
  I := FindFirst( ´c:\*.*´, faArchive, SR);// Zero se encontrar
  while I = 0 do
  begin
    if (sr.Attr and faArchive) = sr.Attr then
    begin
      Lista.Add(SR.Name)
    end;
    I := FindNext(SR);
  end;
  FindClose(SR);// Liberar

  Lista.Sort;// Classificar os itens adicionados na lista
  cbb1.Items.Assign(Lista);// "Carregar" o ComboBox com a lista já ordenada
  Lista.Free;
end;