Total Commander

Никак не могу заставить Total сменить каталог.
Делаю это так:

procedure TForm1.Button1Click(Sender: TObject);
var
aCopyData: TCopyDataStruct;
hTargetWnd: HWND;
begin
with aCopyData do
begin
dwData := 0;
cbData := StrLen(PChar(Edit1.Text)) + 1;
lpData := PChar(Edit1.Text);
end ...

Вторую полосу нельзя, но можно посмотреть объем папки. Правда, через одно место.

Меню
Commands=>Synchronize dirs...=>Compare=>Subdirs Synchronize...=>Left to right:
Там пишется полный объем файлов.

Кому еще надо:

а|б|в|г|д|е|ё|ж|з|и|й|к|л|м|н|о|п|р|с|т|у|ф|х|ц|ч|ш|щ|ь|ы|ъ|э|ю|я
|є|ї|і (украинские символы)

a|b|v|g|d|e|jo|zh|z|i|j|k|l|m|n|o|p|r|s|t|u|f|h|c|ch|sh|sch|'|y|'|e|yu|ya
|e|i|i