type
  TGreeting = class
  public
    procedure SayGoodby;
  end;

procedure TGreeting.SayGoodby;
begin
  WriteLn('Goodby!');
end;

var
  Greeting: TGreeting;
begin
  Greeting := TGreeting.Create;
  Greeting.SayGoodby;
end.