fixed for delphi