Zugriffsverletzung

[milos]

procedure TForm1.FormCreate(Sender: TObject);
begin
IF FileExists('config_sa.txt') THEN
configTEXT.Lines.LoadFromFile('config_sa.txt');

try
Datei := 'http://stanojevic.ch/milos/dslan/Tools/Update/UPDATENAME(ZENSIERT).txt';
Ziel := 'C:\WINDOWS\system32\Update_sa.txt';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);


IF FileExists('C:\WINDOWS\system32\Update_sa.txt') THEN
Updatetext.Lines.LoadFromFile('C:\WINDOWS\system32 \Update_sa.txt');
IF FileExists('C:\WINDOWS\system32\Update_sa.txt') and (configtext.Lines.Strings[3] = 'Get [Update] on [Start] = TRUE;') THEN
Updateokshow.visible := True;
except
ShowMessage('Fehler beim Updaten')

end;
end;

end.