type TPerson = class(TObject, ISwimmer) ... end;
var swimmer : ISwimmer; person : TPerson; begin swimmer := TPerson.Create; person := swimmer as TPerson; person := TPerson(swimmer);