Ingenious!

Sometimes you find a code fragment that’s so great you only wish it was your idea …

const
  fm: array[Boolean] of Word = (fmCreate, fmOpenWrite);
fs := TFileStream.Create(fileName, fm[FileExists(fileName)]);

Obvious – in retrospective.