Go Up to Error and Warning Messages (Delphi)
You have applied the TypeInfo standard procedure to a type identifier which does not have any run-time type information associated with it.
program Produce;
var
vย : Pointer;
begin
vย := TypeInfo(TextFile);
end.
TextFile type do not generate type information, so this use of TypeInfo is illegal.