procedure GetDir(Drive: Byte; var Directory: string);

Процедура GetDir записывает в Directory каталог по умолчанию, находящийся на диске, определяемом параметром Drive. Если Drive имеет значениеот 1 (диск А:) до 26 (диск Z:), GetDir извлекает текущий каталог указанного диска. Если Drive имеет другое значение или указанный диск недоступен, GetDir определяет текущий диск и каталог. Значение, сохраняемое в Directory, всегда начинается с буквы диска, например, X:\Directory.
GetDir не является настоящей процедурой.