Delphi - Akses Registry

Ini adalah code untuk mengakses Registry

procedure TForm1.Button1Click(Sender: TObject);
var reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:= HKEY_CURRENT_USER;

if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\policies\system',true) then
begin
reg.WriteBool('DisableRegistryTools',false);

end;
finally
reg.Free;
end;
end;

Delphi - Membuat File

ini adalah source code program delphi untuk membuat file :

procedure TForm1.Button2Click(Sender: TObject);

var
        fileku : TextFile;
        Filenya : String;
begin
Filenya:='C:\Testing.txt';
 if fileexists(Filenya) then
 deletefile(Filenya);

 assignfile(fileku,Filenya);
 rewrite(fileku);
 writeln(fileku,'TESTTESTTESTTESTTEST');

 closefile(fileku);
end;

Silahkan disesuaikan..