Moin Florian,
noch eine kleine Ergänzung:
Code:
if regist.OpenKey('Software\flomei\pumpensteuerung\1.0',[color=red]true[/color]) then
true als zweiten Parameter, da der Key sonst nicht angelegt wird.
Ansonsten geh' doch mal im Einzelschritt durch die Routine, damit Du siehst, ob die Write Zeilen überhaupt erreicht werden.