Reg

Kode 

procedure TFrmVegas.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
Form2.ShowModal;
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
If Registry.OpenKey('Scorpe/LFLV',True) then
FrmVegas.Color := StringToColor(Registry.ReadString('bgcolor'));
ListBox1.Color := StringToColor(Registry.ReadString('bgcolor'));
Registry.Free;
end;

Kode 

procedure TFrmVegas.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
Form2.ShowModal;
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
If Registry.OpenKey('Scorpe/LFLV',True) then
begin
FrmVegas.Color := StringToColor(Registry.ReadString('bgcolor'));
ListBox1.Color := StringToColor(Registry.ReadString('bgcolor'));
end
Registry.Free;
end;

Kode 

procedure TForm2.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
If Registry.OpenKey('Scorpe/LFLV',True) then
begin
Registry.WriteString('bgcolor',ColorToString(ColorListBox1.Selected));
Registry.Free;
end;
end;

Kode 

procedure TForm2.FormCreate(Sender: TObject);
var
Registry: TRegistry;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
If Registry.OpenKey('Scorpe/LFLV',True) then
begin
Registry.WriteString('bgcolor',ColorToString(ColorListBox1.Selected));
end;
Registry.Free;
end;

Kode 

procedure TMainForm.Button1Click(Sender: TObject);
var
  reg:TRegistry;
  s:string;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  try
    if reg.KeyExists('\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion') then
    begin
      reg.OpenKey('\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion',false);
      s:=  'Dit Navn er: ' + reg.ReadString('RegisteredOwner');
      S:= s+ #13#10'Du Bruger: ' + reg.ReadString('ProductName');
      Application.MessageBox(PAnsiChar(s),'Info');
    end else Caption:= 'Findes ikke';
  except
    HandleException;
  end;

  reg.Free;
end;

procedure TMainForm.HandleException;
begin
  Application.MessageBox('Der skete en Fejl!','Fejl!',MB_OK);
end;

Kode 

on EZeroDivide do ShowMessage('Du dividerer med nul.. KAN MAN IKKE!');