고수님들 갈텨주세여...

address 0043995B in module 'SIBIS.EXE'. Read of FFFFFFFF.'이런 에러

가 나옵니다.



procedure TfmMain.FormCreate(Sender: TObject);

var

TheReg: TRegistry;

KeyName: String;

//ValueStr: String;

begin

if MessageDlg('데이터베이스를 선택하시겠습니까?',mtInformation,[mbYes,mbNo],0)= mrYes then

begin

TheReg := TRegistry.Create;

try

TheReg.RootKey := HKEY_CURRENT_USER;

KeyName := 'SoftwareODBCODBC.INISiBeeODBC';

if TheReg.OpenKey(KeyName, False) then

begin

if OpenDialog1.Execute then 이부분에서 에러가 나는데 왜인쥐..??

begin

TheReg.WriteString('DBQ',OpenDialog1.FileName);

TheReg.CloseKey;

end;

end;

finally

TheReg.Free;

end;

fmMain.StatusBar1.SimpleText:= '현재 작업중인 데이터베이스는 '+OpenDialog1.FileName+ ' 입니다';

end;

Database1.Open;

//OpenDialog1.FileName;

GetConfiguration;

end;