Delphi 100 251 Rev 1.0 !full! -

It seems you’re referring to a with the code: