[Vayrus]

Не помешает грамотно оформить, типа этого:

Код:

procedure TForm1.FormCreate(Sender: TObject); 
var 
buf: integer; 
begin 
buf := 1000;
Reg =TRegistry.Create;
try
   Reg.RootKey := HKEY_LOCAL_MACHINE; 
   if Reg.OpenKey( '\SOFTWARE\Test', true ) then
begin 
   Reg.WriteString( 'string', 'string' ); 
   Reg.WriteInteger( 'integer', SizeOf( Integer ) ); 
   Reg.WriteBool( 'bool', true );  
   Reg.WriteBinaryData( 'binary', buf, SizeOf( buf ) ); 
   Reg.CloseKey; 
end;
finally
   Reg.Free; 
end;
end;