Problem mit RegReadBinaryData

[Baeuerle]

Hallo,

habe folgenden Code: (Schreiben geht / Auslesen nicht) Was ist false?

Delphi-Quellcode:

// CODE ZUM SPEICHERN
procedure TtfBieter.SaveOptions;
var reg: TRegistry;
    m: TMemoryStream;
begin
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey(cKey,True)then
 begin
 m:=TMemoryStream.Create;
 m.Position:=0;
 tmSchluss.Lines.SaveToStream(m);
 m.Position:=0;
 reg.WriteBinaryData(SCHLUSS,m,m.Size);
 m.Free;
 end
else raise Exception.Create(ermSaveOptions);
finally
 reg.free;
 end;
end;

// CODE ZUM LESEN
procedure TtfBieter.LoadOptions;
var reg: TRegistry;
    m: TMemoryStream;
    size: Integer;
begin
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey(cKey,False)then
 begin
 try
 m:=TMemoryStream.Create;
 size := reg.GetDataSize(SCHLUSS);
 reg.ReadBinaryData(SCHLUSS,m,size)));
 m.Position:=0;
 tmSchluss.Lines.LoadFromStream(m);
 finally
  m.Free;
  end;
 end
else if reg.KeyExists(cKey)then raise Exception.Create(ermLoadOptions);
finally
 reg.free;
 end;
end;

Thx 4 hlp