Statt
if Active then Active:=False;
kannst du einfach
Close;
schreiben.
Delphi-Quellcode:
Active:=True;
Edit;
FieldbyName('PickStatus').value:=loe;
Post;
ApplyUpdates(-1);
ist nicht eindeutig
hier besser ohne with arbeiten und das DataSet mit angeben.