Dziedziczenie - użycie metody przeciązonej w klasie bazowej

Witam,
mam przypadek, z którym nie mogę sobie poradzić (pseudocode)

klasa A = class(TForm) {
	metoda A {
		B();
	}
	metoda B overload{
		print 'A';
	}
}

klasa B = class(A){
	metoda B overload{
		print 'B';
	}
}

Wywołanie

B := B.create();
B.A();
// wyświetla A;

dlaczego nie B?

dodanie znaczników <code class="delphi"> i <code class="c"> - @furious programming

dodałem klasę nad A z virtual; abstract; a w A i B override - teraz działa

Następnym razem pokaż normalny kod, a nie jakiś wytwór wyobraźni - niepotrzebnie ukrywasz pewne informacje, które mogą być cenne przy rozwiązywaniu problemu;

Twoje posty połączyłem niepotrzebnie, w każdym razie wątek widzę rozwiązany.