Polimorfizm przykład

Witam,
chciałbym prosić, starszych i bardziej doświadczonych programistow o podanie jakiegos przykładu na polimorfizm obojetnie w jakim jezyku :D
dzieki z gory

class A {
  public: virtual void foo() {
    puts("Klasa A");
  }
}

class B : public A {
  public: virtual void foo() {
    puts("Klasa B");
  }
}

// Instancja
A a;
B b;
a.foo();
b.foo();

// Wskaźnik
A* a_p = &a;
A* b_p = &b;
a_p->foo();
b_p->foo();

// Referencja
A& a_r = a;
A& b_r = b;
a_r.foo();
b_r.foo();

Wystarczy?

http://4programmers.net/Forum/Delphi_Pascal/183037-problem_z_watkami?p=760139#id760139 tu masz w delphi