I don't get it.

[JLWest]

function IsWordPresent( const W: string;  const S: string;  const WordDelims: TSysCharSet) :Boolean;

Present : Boolean;
aString = 'Invalid Day of week:

Present := IsWordPresent('Day', aString, ' ');

It dosen't like the ' ' as I give as the space delim of the string. Or is that not what it is askig for?

[lucamar]

It is a set. Use:
  Present := IsWordPresent('Day', aString, [' ']);

Whatever error it gave should be telling you that.