[Мишка-90]

Всем доброго времени суток, подскажите пожалуйста, где я ошибся...

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   sSkinManager1.Active := false;
   sSkinManager1.SkinDirectory:=ExtractFilePath(Application.ExeName)+ 'Skins';
   sSkinManager1.SkinName := ExtractFilePath(Application.ExeName)+ 'Skins'+ '\Desert.asz';
   sSkinManager1.Active := true;
end;

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