added delphi stuff