function CreateControl(AClassName:string; AParent:TWinControl):TWinControl;
begin
  Result:=FindClass(AClassName).Create as TWinControl;
  Result.Parent:=AParent;
end;

на Result.Parent:=AParent — Access Violation.

Что не так и как в данном случае правильно сделать?