функция не работает (делфи)

[NewLamer&Programer]

сделал функцию для поиска некоторых переменных среды Windows, но при попытке использования проект падает с ошибкой Access violation, подскажите почему?

Function GetSysDir(variable: string): string;
Var reg: TRegistry;
    HomeDrive, WinDir, Temp, UserProfile, s: string;
begin
reg.Create;
reg.RootKey:= HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);

s:= reg.ReadString('Fonts'); 
Delete(s, 3, 15); //в этом разделе почему то нет чисто HomeDrive... пришлось импровизировать...
HomeDrive:= s;
WinDir:= HomeDrive + '\Windows';
Temp:= reg.ReadString('Local Settings') + '\Temp';
s:= Temp;
Delete(s, Length(s)-20, Length(s)+25); //как и чисто UserProfile
UserProfile:= s;

if variable = 'HomeDrive'   then Result:= HomeDrive;
if variable = 'WinDir'      then Result:= WinDir;
if variable = 'Temp'        then Result:= Temp;
if variable = 'UserProfile' then Result:= UserProfile;

reg.CloseKey;
reg.Free;
reg.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= GetSysDir(Edit1.Text);
end;

[Stilet]

reg.Create;

reg:=TRegistry.Create;

Дальше не смотрел.

некоторых переменных среды Windows

GetEnvironmentVariable() или SHGetSpecialFolderLocation() не катит?

[NewLamer&Programer]

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

reg:=TRegistry.Create;

Дальше не смотрел.

да это то фигня как раз, сколько раз так писал всегда прокатывало...

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

GetEnvironmentVariable() или SHGetSpecialFolderLocation() не катит?

а вот за это реальное спасибо ! не знал про такую...

[BDA]

да это то фигня как раз, сколько раз так писал всегда прокатывало...

Я тут банки грабил - всегда прокатывало.

Нужно писать, как положено, а не как прокатывает.

[Serge_Bliznykov]

reg.Create;

да это то фигня как раз, сколько раз так писал всегда прокатывало...

НЕ ВЕРЮ!
Вы обращаетесь к методу Create объекта который ещё НЕ СОЗДАН! Это не прокатывало, не прокатывает и не будет прокатывать!

[Stilet]

Я тут банки грабил - всегда прокатывало.

Теперь я знаю твою тайну. За свое молчание требую один доллар и миллион вертолетов.