[Snake22]

Сообщение от angvelem

Не смеши, замени RichEdit1.Lines.Add(sr.Name) на то, что было у тебя. А свой бредовый способ выделения выкинь.

заменял,

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sr    : TSearchRec;
  Len  : Integer;
begin
  Len := 0;
  if FindFirst(ExtractFilePath(ParamStr(0)) + '\*.*', faAnyFile, sr) = 0 then
  begin
    repeat
      RichEdit1.Text:= RichEdit1.Text+ sr.Name+'  ';
      if sr.Attr and faDirectory <> 0 then
       begin
        RichEdit1.SelStart:=Length(RichEdit1.Text)-length(sr.Name)-2;
        RichEdit1.SelLength:=Length(sr.Name);
        RichEdit1.SelAttributes.Style := [fsBold];
        end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
  RichEdit1.Lines.Add('');
end;

и выделяет только последнюю папку,
всё прежнее форматирование сбрасывается(
Janom спс работает)