Zwei Klassen in einer ObjectList

[totti14]

Hallo,
ich habe zwei Klassen mit den selben public proceduren.
Die beide Klassen werden eigentlich nur beim erzeugen unterschieden. Je nachdem auf welchen Port die Daten rein kommen.
Jeder Klasse macht natürlich was anderes in Send und Verarbeite.
Diese wollte ich dann einer Generetic Objectlist verwalten. Die scheinen in D2010 ja gut zu funktionieren ?

Delphi-Quellcode:

Type
  TProt1 = class
    private
      procedure MachWasAB;
    public
      constructor create;
      procedure Send(const Buf : Array of byte);
      procedure Verarbeite;
  end;

  TProt2 = class
    private
      procedure MachWasABC;
    public
      constructor create;
      procedure Send(Const Buf : Array of Byte);
      procedure Verarbeite;
  end;

Var
  ClientList: TObjectList<TProt1>;

Delphi-Quellcode:

MAIN

  ClientList:=TObjectList<TProt1>.create;
........
  if Port = 300 then
  ClientList.Add(TProt2.create)     //  das geht natürlich nicht
  else
  ClientList.Add(TProt1.create);

  ........
  ClientList[i].Send(Data];

Da gibt es doch bestimmt eine bessere Lösung dafür ?

Besten Dank