Hi,
Du hast in der FormCreate drei Reg.Create drin. Nur ein Free am ende der Prozedur. Setz jeden Block in einen try..finally..end Block.
Delphi-Quellcode:
Reg.Create;
try
//Schlüssel lesen usw.
finally
Reg.Free; //oder FreeAndNil(Reg);
end;
Grüsse, Daniel
