1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var CompClass:string;
begin
      ComponentClass := FindComponentClass(CompClass);
      Result := TComponent(ComponentClass.NewInstance);
end;

initalization
 //RegisterClass(AClass: TPersistentClass);
// TKreis von TShape abgeleitet
RegisterClass(TKreis);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TComponent.FindComponent(const AName: string): TComponent;
var
  I: Integer;
begin
  if (AName <> '') and (FComponents <> nil) then
    for I := 0 to FComponents.Count - 1 do
    begin
      Result := FComponents[I];
      if SameText(Result.FName, AName) then Exit;
    end;
  Result := nil;
end;