Что делает этот код?

[lucky]

народ, помогите поиз разобраться с процедурой!
оч прошу вас...
там написаны комментарии, но я хочу узнать что это такое:

PBProgress.Visible, TTimi.Enabled, BSearch.Enabled, CBSource.Enabled, 
CBTarget.Enabled ,ShortRoute, CurrentRoute.OwnsObjects, CurrentRoute

PBProgress.Visible := True;
TTimi.Enabled := True;
BSearch.Enabled := False;
CBSource.Enabled := False;
CBTarget.Enabled := False;


что значит каждое, или для чего нужно( 

ShortRoute := TObjectList.Create;
ShortRoute.OwnsObjects := False;
CurrentRoute := TObjectList.Create;
CurrentRoute.OwnsObjects := False;

помогите пожалуйста(( оч прошу

[artemavd]

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

CBTarget.Enabled ,ShortRoute, CurrentRoute.OwnsObjects, CurrentRoute
PBProgress.Visible := True;
TTimi.Enabled := True;
BSearch.Enabled := False;
CBSource.Enabled := False;
CBTarget.Enabled := False;

ShortRoute := TObjectList.Create;
ShortRoute.OwnsObjects := False;
CurrentRoute := TObjectList.Create;
CurrentRoute.OwnsObjects := False;

Полагаю, что это значит следующее:
CBTarget.Enabled - это CheckBoxTarget;
ShortRoute - это CheckBoxShortRoute;
CurrentRoute.OwnsObjects - это не знаю...;
СurrentRoute - это тоже не знаю...;
PBProgress.Visible - это ProgressBar co свойством Visible;
TTimi.Enabled := True; - это TTaimer co свойством Enable
BSearch.Enabled := False - эт не знаю...;
CBSource.Enabled := False; - это CheckBoxSource

[lucky]

помогите кто пожалуйста((

[Neeter]

Чем вас не устроил ответ artemavd?

Я думаю примерно так же, но вот дополнения:

BSearch.Enabled := False - B означает Button, значит кнопка BSearch делается недоступной

А тут...

ShortRoute := TObjectList.Create;
ShortRoute.OwnsObjects := False;
CurrentRoute := TObjectList.Create;
CurrentRoute.OwnsObjects := False;

Создается два объекта ShortRoute и CurrentRoute и их свойство OwnsObjects устанавливается в false

[Квэнди]

ну и добавить можно что OwnsObjects отвечает за то, является ли TObjectList только контейнером для хранимых объектов, или же владельцем оных. Разницы в том, что в втором случае при уничтожении TObjectList уничтожаться все объекты, хранящиеся в нем.