Sorry but i fond more trouble.

Setting InitialQuality don’t work if creating component at runtime.

The code below solves the problem.

property InitialQuality: TPsVarQuality read FInitialQuality write
SetInitialQuality default vpqBad;

constructor TPsVar.Create(AOwner: TComponent);
begin
….
FInitialQuality:=vpqBad;
….
end;

procedure TPsVar.SetInitialQuality(AQuality: TPsVarQuality);
Var
Value:Variant;
begin
if (FInitialQualityAQuality) then begin
FInitialQuality:=AQuality;
ApplyInitialValue;
end;
end;