[Nyctos Kasignete]

Пробовала так:

Код:

procedure findDirList(const Path: string; var list: TStringList);
var
  F: TSearchRec;
begin
  if FindFirst(Path, faAnyFile, F) <> 0 then Exit;
  list.Clear;
  if (F.Name <> '.') and ( F.Name <> '..') then
    if (F.Attr and faDirectory) <> 0 then list.Add(F.Name);

  try
    while FindNext(F) = 0 do
      if (F.Name <> '.') and ( F.Name <> '..') then
        if (F.Attr and faDirectory) <> 0 then list.Add(F.Name);
  finally
    FindClose(F);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
begin
  SList := TStringList.Create;
  try
    findDirList(Edit1.Text, SList);
    Memo1.Lines.Clear;
    Memo1.Lines.AddStrings(SList);
  finally
    SList.Free;
  end;
end;

Вроде, нету никаких точек на выходе...

P.S. Ай, забыла, что на Pascal пишите! Ну да ладно, это не меняет сути...