Daniel,

> And, your OnGetText should look like:
>
> procedure DeScramble(Sender: TField; var Text: String; DisplayText:
> Boolean);
> begin
> Text:=Encrypt(Sender.AsString);
> DisplayText:=False;{This permits editing the string value}
> end;

DisplayText would have to be passed by reference. It is merely to let you
know that the request for text may or may not be for display-only purposes.

Jason Wharton