type
  TGreeting = class
  public
    //default parameter values
    class procedure SayGoodby(
      const Message: string = 'Goodby!');
    class procedure SayHello(
      const Message: string = 'Hello!');
  end;

class procedure TGreeting.SayGoodby(
  const Message: string);
begin
  WriteLn(Message);
end;

class procedure TGreeting.SayHello(
  const Message: string);
begin
  WriteLn(Message);
end;

begin
  TGreeting.SayGoodby;
  //printed 'Goodby!'

  TGreeting.SayGoodby('Hi');
  //printed 'Hi'
end.