Exemplo 2 - SOLID LSP

Solid.LSP.pas

// Função que espera um objeto do tipo TClassePai como parâmetro
function GetMensagemOk(const AObjeto: TClassePai): string;
begin
  Result := 'Ok';
end;

var
  LClassePai: TClassePai;
  LClasseDerivada: TCLasseDerivada;
begin
  LClassePai := TClassePai.Create;
  LClasseDerivada := TCLasseDerivada.Create;
  try
    // Aceita o objeto do tipo TClassePai
    ShowMessage(GetMensagemOk(LClassePai));
    // Aceita o objeto do tipo TClasseDerivada
    ShowMessage(GetMensagemOk(LClasseDerivada));
  finally
    LClasseDerivada.Free;
    LClassePai.Free;
  end;
end;