Probleme mit TStrings

[Luckie]

Fehlerbehandlung fehlt komplett

Code:

procedure TForm1.Button1Click(Sender: TObject); 
var someLines : TStringList; 
begin 

  someLines:= TStringList.Create; 
  [b]try[/b]
    with TRegistry.create(KEY_READ) do 
    begin
      [b]try[/b]
        Rootkey:=HKEY_LOCAL_MACHINE; 
        OpenKey('Software', false); 
        getKeyNames(someLines); 
        closekey; 
      [b]finally[/b]
        free; 
      [b]end;[/b]
    end; 

    Memo1.Lines.Assign(someLines); 
  [b]finally[/b]
    someLines.Free; 
  [b]end;[/b]
end;