Beispiel für Polymorphie gesucht

[Luckie]

Jupp, läuft schon, gedae implementiert:

Delphi-Quellcode:

function TLemon.GetTaste: String;
begin
  result := 'sauer';
end;

procedure TLemon.Squeeze;
begin
  ShowMessage('Von Hand ausdrücken.');
end;

function TGrapefruit.GetTaste: String;
begin
  result := 'süß';
end;

procedure TGrapefruit.Squeeze;
begin
  ShowMessage('Mit der Maschine ausdrücken.');
end;

function TBanana.GetTaste: String;
begin
  result := 'fruchtig';
end;

Das ShowMessage in den Prozeduren ist Absicht. Funktionen wären logischerweise geeigneter, aber man soll ja sehen, dass es auch mit Prozeduren geht. Jetzt muss ich mir nur noch einBeispiel zur Verwendung dafür ausdenken und irgendwo is und as unterbringen. Hat da jemand spontan einenen Geistesblitz?