Selam Arkadaşlar
Daha cok yeniyim sizlerin yardımlarıyla işime yarayacak bir program yazmaya calışıyorum.
Fakat registry de takıldım.
aşağıdaki kod registry proramı kapattığımda yazıyor
Fakat yeniden actığımda gene boş cıkıyor.

procedure TForm1.RegistryYaz;
var
i:Integer;
op_key:String;
begin
inherited;
Regs := TRegistry.Create;
try
with Regs do
begin
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('Software\Okul\Form1',True)Then
try
//Birimler
WriteString(ComboBox1.Name,ComboBox1.Text);
WriteString(ComboBox2.Name,ComboBox2.Text);
WriteString(ComboBox3.Name,ComboBox3.Text);
WriteTime(DateTimePicker1.Name,DateTimePicker1.Tim e);

finally
CloseKey;
end;
end;
finally
Regs.Free;
end;
end;


procedure TForm1.RegistryOku;

var
i :Integer;
op_key :String;

begin
inherited;
Regs := TRegistry.Create;
try
with Regs do
begin
RootKey := HKEY_LOCAL_MACHINE;

if OpenKey('Software\Okul\Form1',True)Then
try
ComboBox1.Text := ReadString(ComboBox1.Name);
ComboBox2.Text := ReadString(ComboBox2.Name);
ComboBox3.Text := ReadString(ComboBox3.Name);
DateTimePicker1.Time := ReadTime(DateTimePicker1.Name);

finally

CloseKey;

end;
end;
finally
Regs.Free;
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
RegistryOku;
end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RegistryYaz;
Action := caFree;
end;

end.
__________________