Универсальность

Здравствуйте все.
Вот такая проблема: я хочу создать функцию, которой передают указатель на данные, формат которых зависит от другого параметра. Можно ли использовать для этого перечислимый тип.
type DType=(TType,T2Type,T3Type);
TType=record
...
end;
...
Описания других типов
...
procedure proc(T: DType;Data:pointer);
begin
T(Data).Param=...
end;
Вот вроде этого можно сделать?
или надо
Case T of
TType:...
T2Type:...
T3Type:...
end;