Чтение и запись набора разных типов "RECORD"

[SomeOneAndrey]

Есть набор записей, которые будут использоваться для передачи как пакеты данных

  TPType = (ptNone, ptConnect, ptConnectResponse);

  PConnected = record
    PType: TPType;
    Name: TName;
  end;

  PConnectResponse = record
    PType: TPType;
    PlayerIdx: Integer;
  end;

С чтением все относительно понятно

procedure PHandle(const Msg);
begin
  case TPType(Msg) of
    ptConnect: begin
      PConnected(Msg).Name;
    end;
  end;
end;

Но, есть проблема, оно требует существующую переменную как параметр, т.е я не могу использовать функцию как параметр

function PConnectResponseC(_PlayerIdx: Integer): PConnectResponse;
begin
  with result do begin
    PType:=ptConnectResponse;
    PlayerIdx:=_PlayerIdx;
  end;
end;

Так-же не понятно как проводить запись, нужна универсальная переменная "records", которая бы поддерживала все остальные типы, но такой нет..

Примерно так

var
  R: TRecord;
begin
  R:=PConnected(массив_байт);
  R:=PConnectResponse(массив_байт);
end;

Ну, или же через функции, в любом случае, не знаю где можно хранить записи разных типов
Какие есть варианты решения проблемы?

[northener]

Не совсем понял проблему. Может вариантные записи помогут?
При приёме/передаче они самое то.

[SomeOneAndrey]

Сообщение от northener

Не совсем понял проблему. Может вариантные записи помогут?
При приёме/передаче они самое то.

Отличное решение! Спасибо!