$message

Example

procedure Foo;
begin
  {$message 'not yet supported'}
end;